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FOREWORD 


The  Quantity-Distance  Fragment  Hazard  (FRAGHAZ)  Computer  Program  was  developed  for  the 
Department  of  Defense  Explosives  Safety  Board  (DDESB)  by  Frank  McCleskey  while  employed  at  the  Naval 
Surface  Warfare  Center  (NSWC)  from  1981  to  1986.  The  documentation  of  the  program  was  accomplished  by 
the  author  while  an  employee  of  Kilkeary,  Scott  &  Associates,  Inc.,  in  1987  under  Navy  Contract. 

The  FRAGHAZ  program  had  its  beginnings  in  the  early  1970s.  The  initial  concepts  were  developed  by 
Richard  T.  Ramsey  of  NSWC,  under  the  able  direction  of  Dr.  Thomas  A.  Zaker  of  the  DDESB.  This  program 
is  dedicated  to  the  memory  of  both  these  gentlemen  who  contributed  so  much  to  the  field  of  explosives  safety 
analysis. 

Following  Dr.  Zaker’s  death  in  1986,  Dr.  Jerry  M.  Ward  has  directed  the  program  at  the  DDESB. 

The  individuals  who  made  significant  contributions  in  the  development  of  the  FRAGHAZ  computer 
program  are  W.  D.  Smith,  J.  G.  Powell,  R.  J.  Sawyer,  and  R.  R.  Baker,  of  NSWC  and  M.  Reches,  AMSAA; 

M.  Miller,  0.  Smith,  and  D.  Webber,  CRDC,  Aberdeen,  Maryland. 

This  report  has  been  reviewed  by  W.  H.  Bohli,  Head,  Explosion  Dynamics  Branch. 
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INTRODUCTION 


Historically,  hazards  from  stacks  of  explosive  ordnance  have  been  stated  in  terms  of  hazard  distance 
due  to  blast  overpressures.  These  hazard  distances,  presented  as  quantity  versus  distance  (QD  criteria),  have 
not  adequately  addressed  the  fragment  hazards.  The  fragment  hazards  were  specified  in  terms  of  specific 
number  of  weapons  and  were  derived  using  many  simplifying  assumptions.  As  a  result,  the  validity  of  these 
QD  criteria  have  always  been  questionable. 

The  Department  of  Defense  Explosives  Safety  Board  (DDESB)  decided  to  begin  detailed  studies  and 
experiments  concerning  the  hazards  posed  by  fragments  from  stacks  of  detonating  munitions  in  the  early 
1970s.  The  Naval  Surface  Warfare  Center  (NSWC)  was  requested  to  characterize  weapons  of  interest  to  the 
DDESB  and  to  establish  analytical  techniques  that  would  predict  the  fragment  hazards  for  stored  munitions. 

t 

Many  fragmentation  experiments  were  conducted  and  a  number  of  predictive  analytical  techniques 
were  explored.  The  analytical  techniques  were  all  characterized  by  integral  and  differential  equations  whose 
solutions  would  provide  estimates  of  hazard  distances  for  fragmenting  munitions.  These  analytical 
approaches  suffered  from  the  need  to  restrict  the  number  of  variables  to  a  manageable  level.  As  a  result, 
many  variables  had  to  be  averaged  or  held  constant.  Many  conditions  such  as  v;ind,  ricochet,  and  variable 
drag  coefTicient  had  to  be  ignored  to  m.ake  the  equations  manageable. 

In  1981,  recognizing  the  limitations  of  the  analytical  methods,  a  new  approach  was  established  that 
had  the  promise  of  overcoming  the  restrictions  imposed  by  analytical  equations.  The  new  approach  relied  on 
numerical  procedures  where  as  many  equations  as  needed  could  be  solved  sequentially.  In  the  numerical 
procedure,  a  complete  trajectory  for  each  fragment  representing  a  particular  munition  is  calculated,  and 
hazard  calculations  made  when  the  trajectory  intersected  the  target.  These  numerical  procedures  are  often 
referred  to  as  MONTE  CARLO  or  FULL  FACTORIAL  procedures.  This  report  contains  the  description  of 
numerical  procedures  currently  established  for  predicting  the  hazards  from  fragmenting  munitions.  There  is 
a  general  description  designed  to  orient  the  reader  as  to  the  many  qualitative  aspects  of  the  procedure.  This 
is  followed  by  a  detailed  line-by-line  description  of  the  computer  code.  Supporting  this  thorough  description 
of  the  computer  code  is  a  number  of  appendices  containing  information  too  detailed  to  be  included  in  the  main 
body  of  the  report.  Such  things  as  glossaries,  mathematical  proofs,  program  listings,  and  example  problems 
are  included  in  the  appendices. 

Although  future  changes  are  inevitable,  the  computer  program  has  advanced  to  a  stage  where  docu¬ 
mentation  is  warranted.  All  significant  factors  affecting  the  hazards  from  fragments  have  been  incorporated. 
The  program  is  coded  in  Microsoft  FORTRAN  77,  which  is  common  to  many  computers  ranging  from 
MICROS  to  MAIN  FRAMES.  FORTRAN  77  represents  a  compromise  between  BASIC  and  FORTRAN  IV. 

The  program  has  been  structured  to  minimize  running  time  such  that  it  can  be  run  practically  on  MICRO 
computers.  A  typical  run  on  the  IBM  PC-AT  using  compiled  FORTRAN  77  takes  approximately  6  hr, 
whereas  on  a  MAIN  FRAME  the  run  would  be  measured  in  minutes. 
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GENERAL  PROGRAM  DESCRIPTION 


The  QD  Fragment  Hazard  (FRAGHAZ)  Computer  Program  provides  a  method  for  predicting  the 
fragment  hazard  produced  by  the  detonation  of  munitions.  FRAGHAZ  requires  fragment  characteristic  data 
obtained  from  small-scale  tests  representative  of  larger  stacks  of  munitions.  In  the  case  of  155mm  projectiles, 
for  example,  the  small-scale  test  may  consist  of  one  or  more  pallets  (eight  projectiles  per  pallet)  positioned  and 
detonated  to  yield  a  representative  sample  of  fragment  data  from  an  entire  stack.  Full  trajectories  are  calcu¬ 
lated  for  each  fragment  recovered  in  the  small-scale  test.  Appropriate  calculations  are  made  during  the 
fragment  trajectory  to  establish  the  hazard  to  a  specified  target. 


STACK  FRAGMENTATION  CHARACTERISTICS 

Past  tests  have  demonstrated  that  virtually  all  the  fragments  going  downrange  are  produced  by  the 
munitions  (projectiles,  bombs,  etc.)  on  the  face  of  the  stack  toward  the  target  area.  Fragmentation  from  the 
ordnance  in  the  interior  of  the  stack  is,  for  the  most  part,  contained  within  the  stack.  When  a  stack  with  units 
close  together  is  detonated,  fragment  jets  are  produced  between  adjacent  munitions  on  the  face  of  the  stack. 
The  width  of  the  jet  depends  on  the  method  of  stack  initiation.  When  all  units  are  detonated  simultaneously, 
the  jet  is  typically  10  deg  wide.  If  only  one  or  two  donor  units  are  initially  detonated,  the  jet  width  is  more 
typically  20  to  30  deg.  Stack  detonation  by  donor  units  is  called  natural  communication  and  all  current 
testing  (presented  here)  uses  this  technique. 

The  jet  produced  between  adjacent  units  is  called  an  interaction  area.  The  greatest  fragment  densities 
and  highest  fragment  velocities  are  produced  within  the  interaction  areas.  For  safety  purposes,  the  frag¬ 
mentation  characteristics  of  the  interaction  areas  are  used  for  input  to  the  computer  model.  The  interaction 
areas  overlap  at  relatively  short  distances  downrange  and  their  effects  can  therefore  be  added  to  represent 
the  cumulative  effects  of  large  ammunition  stacks. 


HAZARD  CRITERIA 

The  FRAGHAZ  program  requires  that  hazard  criteria  be  specified  for  the  target  being  considered. 
Most  work  to  date  has  been  concerned  with  the  personnel  target.  The  DDESB  has  specified  the  following 
hazard  criteria  for  personnel: 

1 .  F ragment  impact  kinetic  energy  of  at  least  58  ft-lb 

2.  Hazardous  fragment  areal  number  density  of  at  least  one  hazardous  fragment  per  600  ft2 

The  hazardous  fragment  areal  number  density  criterion  is  approximately  equivalent  to  a  hit 
probability  of  0.01  given  that  the  presented  area  of  a  man  is  considered  to  be  6.2  ft2.  Similar  criteria  must  be 
specified  for  other  targets  being  considered. 
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MONTE  CARLO  AND  FULL  FACTORIAL  OPTIONS 

FRAGHAZ  runs  under  a  MONTE  CARI.Oor  FULL  FACTORIAL  option.  Both  options  provide 
methods  for  handling  the  uncertainty  associated  with  random  variables.  The  program  includes  seven 
random  variables  for  each  option: 

1.  Initial  fragment  elevation  angle 

2.  Initial  fragment  velocity 

3.  Fragment  drag  coefficient 

4.  Height  of  the  fragment  trajectory  origin  above  the  ground  surface 

5.  Soil  constant  for  ricochet 

6.  Wind  speed 

7.  Altitude  of  the  ammunition  stack  site 

The  first  three  random  variables  have  to  do  with  the  specific  characteristics  of  each  fragment.  The 
remaining  four  variables  are  more  like  background  conditions. 

The  following  analogous  terms  are  associated  with  the  two  options: 

MONTE  CARLO  FULL  FACTORIAL 


Variable  Factor 

Value  Level 

Replication  Treatment 

In  the  MONTE  CARLO  procedure  a  variable  is  any  one  of  the  random  variables  listed  above.  In  the 
FULL  FACTORIAL  option,  these  random  variables  are  called  factors.  Likewise,  value  and  level  pertain  to 
any  single  value  for  any  single  random  variable.  Replication  and  treatment  are  also  essentially  synonymous, 
and  are  explained  in  the  following. 

In  the  MONTE  CARLO  option,  each  replication  represents  a  simulation  of  a  full-scale  test.  For 
example,  suppose  there  were  250  fragments  recovered  in  a  small-scale  test  representing  a  particular 
munition.  Each  random  variable  associated  with  the  fragments  would  have  a  known  or  assumed  range  of 
uncertainty.  Random  numbers  are  then  used  to  designate  a  particular  value  for  each  random  variable. 
Trajectories  would  be  calculated  for  each  of  the  250  fragments  with  an  effective  number  of  fragments 
associated  with  each  trajectory  commensurate  with  the  full-scale  stack.  Hazardous  intersections  with  the 
target  would  be  recorded  and  accumulated  in  the  program.  This  would  constitute  one  replication.  Because  of 
the  uncertainty  in  the  random  variables,  this  would  constitute  only  one  possible  outcome  for  the  full-scale 
ammunition  stack  under  consideration.  As  a  result  a  second  replication  would  be  conducted  using  a  new  set 
of  random  numbers  to  define  new  values  for  the  random  variables.  A  new  outcome  would  be  produced  and 
would  be  recorded  and  accumulated  along  with  the  outcome  of  the  first  replication.  This  procedure  would 
continue  until  the  outcomes  of  as  many  as  60  replications  were  recorded  and  accumulated.  At  that  time  the 
program  calculates  the  desired  hazard  statistics  from  the  hazard  data  in  each  replication.  These  final 
statistics  can  be  in  the  form  of  averages,  minima,  maxima,  percentiles,  etc.  If  there  were  250  fragments  and 
60  replications,  then  the  program  would  have  to  calculate  250  x  60  =  15000  complete  trajectories.  Trajectory 
calculations  consume  about  90  percent  of  the  program  running  time.  The  remaining  10  percent  is  taken  up 
with  bookkeeping  (recording  and  accumulating  hazard  data)  and  output  calculations. 

The  FULL  FACTORIAL  option  differs  from  the  MONTE  CARLO  option  only  in  the  way  the  values  of 
the  random  variables  are  selected.  In  the  MONTE  CARLO  option,  if  we  had  60  replications,  then  60  different 
values  for  each  random  variable  for  a  particular  fragment  would  be  selected.  For  example,  suppose  a  single 
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fragment  had  an  elevation  angle  somewhere  between  20  and  30  deg  as  determined  in  the  small-scale  test.  We 
would  only  know  that  the  fragment  elevation  was  between  these  two  limits  and  not  its  exact  value.  For  each 
replication  we  would  use  a  random  number  to  specify  the  exact  value  of  the  elevation  angle  for  that  particular 
fragment;  that  is,  60  different  angles  between  20  and  30  deg.  In  the  FULL  FACTORIAL  option,  only  a  few 
levels  would  be  specified.  For  example,  taking  three  random  variables  (factors)  —  elevation  angle,  height  of 
origin,  and  drag  coefficient,  the  levels  might  be  specified  as  follows; 

FACTOR  LEVELS 

E  0.1,  0.5, 0.9 

H  0.5 

Cd  0.1, 0.9 

The  levels  represent  the  percent  up  from  the  minimum.  In  the  previous  example,  the  elevation  angle 
for  the  fragment  was  known  to  be  between  20  and  30  deg.  The  levels  being  0.1,  0.5,  0.9  the  corresponding 
angles  to  be  considered  in  the  FULL  FACTORIAL  option  would  be  21,  25  and  29  deg.  These  would  be  the  only 
angles  considered.  The  treatments  would  be  all  the  combinations  of  the  three  factor  levels  as  presented 
below: 


TREATMENT  FACTOR  LEVELS 

1  E(0.1),H(0.5),Cd(0.1) 

2  E(0.1),H(0.5),Cd(0.9) 

3  E(0.5),H(0.5),Cd(0.1) 

4  E(0.5),H(0.5),Cd(0.9) 

5  E(0.9),H(0.5),Cd(0.1) 

6  E(0.9),H(0.5),Cd{0.9) 


The  number  of  treatments  is  equal  to  the  product  of  the  number  of  factor  levels,  3  x  1  x  2  =  6.  Since  H 
has  only  one  level,  it  is  constant  throughout  the  procedure.  This  might  be  the  case  if  we  knew  from  previous 
experience  that  the  outcome  was  insensitive  to  this  variable.  Again,  trajectories  would  be  calculated  for  all 
250  fragments  for  each  treatment  using  the  factor  level  combinations  given  above.  The  recording, 
accumulating,  and  output  would  be  calculated  in  the  same  way  as  for  the  MONTE  CARLO  option. 

Each  of  the  calculation  options  has  its  strengths  and  weaknesses.  The  nature  of  the  problem  being 
considered  will  usually  dictate  the  choice.  The  program  as  written  in  this  report  uses  a  personnel  target. 
However,  with  modification,  the  FRAGH  AZ  program  has  been  used  to  evaluate  barricades  and  compute 
probability  of  hit  for  vehicles  moving  on  a  public  traffic  route. 


HAZARD  VOLUME 

Figure  1  shows  the  essential  elements  of  the  model.  Since  interaction  areas  overlap  at  relatively  short 
distances  downrange,  all  fragments  are  assumed  to  emanate  from  a  vertical  line  at  the  center  of  the  stack. 
The  height  of  the  vertical  line  is  made  consistent  with  the  typical  stack  height  of  the  ordnance  under 
consideration.  The  height  at  which  an  individual  fragment  originates  is  selected  randomly  for  the  MONTE 
CARLO  option  and  at  specific  levels  for  the  FULL  FACTORIAL  option.  A  pie-shaped  sector  is  used  to 
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simulate  the  downrange  hazard  volume.  A  hazardous  fragment  is  only  of  concern  when  its  trajectory  lies 
within  the  pie-shaped  hazard  voli  me.  The  height  of  the  sector  is  equal  to  the  height  of  the  target  selected.  In 
Figure  1,  this  height  is  shown  for  a  personnel  target.  The  angular  width  of  the  sector  is  typically  10  deg.  This 
value  has  been  selected  to  match  the  10-deg  sector  width  used  in  the  fragment  pickup  from  full-scale  tests.  In 
this  way,  one  can  compare  the  program  predictions  with  actual  pickup  test  data  to  gage  the  validity  of  the 
computer  model.  The  hazard  volume  is  divided  into  100-ft  segments  from  zero  to  the  maximum  range  spec¬ 
ified  for  the  program  calculations.  Without  wind,  the  maximum  calculated  range  is  on  the  order  of  4800  ft. 

All  calculations  of  fragment  numbers,  fragment  density,  and  probabilities  of  hit  are  made  with  reference  to 
these  100-ft  segments.  Later  in  the  simulation,  the  results  in  each  100-ft  segment  may  be  combined  to  y'  .-Id 
results  for  200, 300,  and  400-ft  increments.  These  larger  increments  sometimes  assist  in  plotting  and 
interpreting  the  output  data. 


FIGURE  1.  STACK  FRAGMENTATION  SIMULATION 
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FRAGMENT  TRAJECTORY 

Figure  2  shows  a  more  detailed  picture  of  the  fragment  trajectory.  Wind  is  included  as  a  two- 
dimensional  velocity  vector,  which  can  have  both  range  and  cross-range  components.  There  is  no  vertical 
component  to  the  wind  vector,  since  this  is  seldom  reported  in  practice.  The  wind,  therefore,  is  always 
contained  in  a  horizontal  plane  at  the  point  of  calculation.  The  origin  of  the  trajectory  is  at  a  designated 
height  selected  by  the  MONTE  CARLO  or  FULL  FACTORIAL  option.  The  trajectory  is  calculated  using  a 
fourth-order  Runge-Kutta  routine.  Calculations  can  be  made  in  three  dimensions  with  the  effects  of  wind 
included.  The  Runge-Kutta  routine  requires  only  initial  conditions  for  fragment  velocity  and  elevation  angle 
at  the  origin.  These  conditions  are  obtained  from  small-scale  arena  tests  of  the  munition  being  considered. 
Each  point  along  the  trajectory  is  calculated  from  the  conditions  existing  at  the  previous  point.  The  velocity 
and  trajectory  angle  are  computed  at  each  point.  When  the  trajectory  is  within  the  hazard  volume,  the 
kinetic  energy  of  the  fragment  is  calculated  and  compared  with  the  hazard  kinetic  energy  criterion  to 
determine  whether  the  fragment  is  hazardous  or  not.  The  trajectory  angle  is  used  in  subsequent  fragment 
density  and  probability  of  hit  calculations.  Range,  cross-range,  and  distance  are  computed  and  are  used  for 
associating  the  hazard  to  a  particular  100-ft-hazard  segment.  Currently,  the  initial  fragment  velocity  vector 
is  constrained  to  the  vertical  X- Y  plane.  However,  since  the  model  uses  a  true  three-dimensional  routine, 
there  is  complete  three-dimensional  freedom  for  establishing  the  initial  conditions.  Trajectory  calculations 
are  made  for  each  fragment  recovered  in  the  small-scale  arena  test. 

A  tail  wind  has  three  adverse  effects  on  hazard  conditions.  First,  a  tail  wind  will  increase  the  range  of 
a  fragment.  Second,  it  will  increase  the  striking  velocity  of  a  fragment  thereby  increasing  its  hazard  to  the 
target.  Third,  a  tail  wind  will  decrease  the  angle  of  strike  thereby  increasing  the  presented  area  of  a  target 
with  a  large  vertical  dimension  (a  man  for  example).  The  increased  presented  area  results  in  larger 
probabilities  of  hit.  The  increased  range  due  to  a  tail  wind  is  approximately  equal  to  the  time  of  flight 
multiplied  by  the  wind  speed.  In  the  far  range  where  the  time  of  flight  can  be  approximately  10  sec,  a  tail 
wind  speed  of  50  ft/s  will  result  in  a  range  increase  of  about  500  ft. 


FIGURE  2.  FRAGMENT  TRAJECTORY 
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Figure  3  shows  the  two  types  of  trajectories  considered  in  the  FRAGHAZ  model.  The  normal  or  non¬ 
ricochet  trajectory  has  been  considered  previously.  The  ricochet  trajectory  is  based  on  experiments  conducted 
by  the  Ballistic  Research  Laboratories  at  Aberdeen,  Maryland,  in  the  late  1960s. ^  In  both  types  of 
trajectories  the  points  at  which  the  fragment  strikes  the  ground  and  either  enters  or  leaves  the  hazard 
volume  (large  dots  in  Figure  3)  are  accurately  calculated  in  the  model.  This  permits  the  hazard  data  to  be 
definitely  associated  with  the  proper  100-ft  hazard  segment.  When  a  fragment  impacts  the  ground,  its  impact 
angle  is  compared  with  a  critical  ricochet  angle  to  determine  whether  the  fragment  will  ricochet.  The  critical 
ricochet  angle  is  dependent  on  the  type  of  soil.  Once  it  is  determined  that  the  fragment  will  ricochet,  the 
angle  and  velocity  of  ricochet  are  determined  from  the  incident  angle  and  velocity  together  with  the  effect  of 
soil  type. 

Since  all  the  dynamic  characteristics  of  the  fragment  are  known  at  each  point  calculated  in  the  Runge- 
Kutta  routine,  all  fragment  hazard  data  can  be  calculated  at  each  point.  When  more  than  one  point  is 
contained  in  a  100-ft  hazard  increment,  averages  are  used  to  determine  the  hazard  data  for  the  increment. 


FIGURE  3.  TYPES  OF  TRAJECTORIES 


HAZARD  CALCULATIONS 

Figure  4  shows  how  hazard  density  and  hazard  probability  of  hit  are  calculated  for  a  personnel  target. 
The  number  of  hazardous  fragments  (N f)  is  dependent  on  the  number  of  ordnance  units  on  the  face  of  the 
stack  toward  the  target  area.  Since  the  trajectories  are  calculated  point  by  point,  the  100-ft  hazard  volume 
increment  through  which  the  trajectory  is  passing  can  be  determined.  The  fragment  mass  and  velocity  are 
also  known  at  each  point  and,  therefore,  it  can  be  determined  whether  the  fragment  possesses  sufficient 
kinetic  energy  to  exceed  the  hazardous  kinetic  energy  criterion.  After  the  fragment  has  been  determined 
hazardous,  the  presented  areas  of  the  target  (represented  as  a  parallelepiped)  and  of  the  total  volume  of  the 
100-ft  hazard  volume  segment  can  be  calculated  in  the  plane  perpendicular  to  the  fragment  trajectory.  This 
can  be  done  because  the  trajectory  angle  with  respect  to  the  horizontal  is  calculated  at  each  point  along  the 
trajectory.  Once  the  presented  areas  are  known,  the  density  and  probability  of  hit  can  be  calculated  using  the 
formulas  shown  in  Figure  4. 


‘Reches,  M.,  Fragment  Ricochet  Off  Homogeneous  Soils  and  Its  Effects  on  Weapon  Lethality  (U),  Army 
Material  Systems  Analysis  Agency  Technical  Memorandum  No.  79,  August  1970  (CONFIDENTIAL). 
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Fragment 

No. 

Polar 

Angle 

(deg) 

Weight 

(grains) 

Initial 

Velocity 

Ws) 

Am 

(in.z/lb) 

Presented 
Area  Ratio 
(max/avg) 

1 

WBSM 

623 

3246 

10.24 

WBSM 

2 

815 

3246 

9.16 

3 

1522 

4112 

11.31 

mSsm 

4 

30 

711 

4112 

6.43 

1.64 

89 

60 

1152 

5316 

7.37 

1.59 

90 

60 

847 

5316 

8.68 

1.42 

91 

70 

‘ 

1634 

6123 

11,74 

1.65 

247 

1713 

• 

5312 

■ 

8.62 

1.59 

248 

652 

5312 

9.14 

1.27 

249 

918 

6597 

6.23 

1.64  1 

250 

■uEH 

1314 

6597 

11.89 

1.59  1 
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Usually  all  fragments  less  than  300  grains  are  eliminated,  since  they  seldom  reach  and  are  usually 
nonhazardous  in  the  far-field.  The  upper  bound  of  the  polar  zone  is  listed  under  Polar  Angle.  In  this  case,  the 
polar  zones  are  10-deg  wide.  A  polar  angle  of  70  deg  identifies  the  60  to  70-deg  polar  zone.  The  lower  limit  of 
the  10-deg  elevation  zone  used  in  the  program  is  equal  to 

£A  =  90  -  PA 

where 


EA  =  Lower  angle  of  elevation  zone 

PA  =  Upper  angle  of  polar  zone 

A  60  to  70-deg  polar  zone  would  therefore  be  associated  with  the  20  to  30  deg  elevation  zone  as 
measured  from  the  horizontal.  A  100  to  1 10-deg  polar  zone  would  be  associated  with  the  -20  to  -10-deg 
elevation  zone.  Currently  the  maximum  critical  ricochet  angle  is  about  20  deg  and,  therefore,  collection  of 
fragments  in  polar  zones  greater  than  110  deg  is  not  necessary.  In  anticipation  of  possible  future  changes, 
tests  have  been  designed  to  collect  fragments  to  the  130-deg  polar  angle. 

The  fragment  weight  is  measured  by  a  scale  and  used  in  kinetic  energy  and  A/M  ratio  calculations. 

The  velocity  is  the  average  initial  velocity  for  a  particular  10-deg  polar  zone.  As  such,  all  fragments  from  the 
same  polar  zone  have  the  same  average  initial  velocity. 

The  A/M  ratio  is  used  in  the  drag  equation.  It  is  the  ratio  of  the  average  presented  area  (in. 2)  to  the 
weight  (lb)  of  a  fragment.  ^ 

The  Presented  Area  Ratio  is  the  maximum  presented  area  divided  by  the  average  presented  area  of  the 
fragment.  This  ratio  correlates  with  the  low  subsonic  (M  =  0. 1)  drag  coefficient.  By  using  this  ratio,  the 
uncertainty  in  the  drag  coefficient  for  a  fragment  can  be  reduced  by  about  40  percent  as  explained  under 
FUTURE  IMPROVEMENTS  (Drag  Coefficients)  in  the  DETAILED  PROGRAM  DESCRIPTION 
SECTION. 


OUTPUT 

There  are  three  basic  outputs  for  the  program:  Number  of  Final  Ground  Impacts  versus  Distance, 
Hazard  Density  and  Probability  of  Hit  versus  Distance,  and  Number  of  Units  Required  to  exceed  the  density 
and  P-Hit  Hazard  Criteria  versus  Distance. 

Number  of  Final  Ground  Impacts  Versus  Distance 

Suppose  we  have  250  fragments  representing  the  munition  and  we  use  60  replications  or  treatments. 
For  the  first  replication  or  treatment,  the  250  fragments  will  come  to  rest  in  a  set  of  100-ft  hazard  segments. 
On  the  subsequent  replication,  the  250  fragments  will  come  to  rest  with  a  different  distribution  because  of  the 
different  values  used  for  the  input  variables.  We  will  end  up  with  60  different  distributions  of  final  ground 
impacts  from  ricochet  and  nonricochet  fragments.  The  60  values  for  each  100-ft  hazard  segment  are  then 
sorted  from  the  smallest  to  the  largest  numbers.  The  first  value  in  the  sorted  numbers  becomes  the  minimum 
number  of  final  ground  impacts  for  the  particular  100-ft  hazard  segment  being  considered.  Likewise  the  60th 
value  is  the  maximum  number.  Adding  all  60  values  and  dividing  the  sum  by  60  yields  the  average  number 
of  final  ground  impacts  for  the  associated  100-ft  hazard  increment.  The  minimum  and  maximum  number  are 
compared  with  actual  ground  pickup  from  full-scale  tests.  If  the  predictive  capability  of  the  program  is  valid, 
then  the  actual  number  of  fragments  picked  up  in  a  full-scale  test  (analogous  to  one  replication  or  treatment) 
should  fall  within  the  maximum  and  minimum  limits  predicted  by  the  program.  Currently  two  such  compar¬ 
isons  are  available.  Figures  5  and  6  show  this  comparison  for  155mm  projectiles  and  Mk  82  GP  Bombs, 
respectively.  The  comparisons  support  the  contention  that  the  predictive  capabilities  of  the  program  are 
valid. 
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Hazard  Density  and  Probability  of  HU 

p 

These  quantities  are  handled  similar  to  the  number  of  Final  Impacts.  Assuming  60  replications  or 
treatments,  there  will  be  density  and  probability  of  hit  entries  in  each  100-ft  hazard  segment  for  each 
replication  or  treatment.  By  sorting  from  smallest  to  largest,  we  may  establish  minimum,  maximum,  and 
average  values.  In  calculating  these  quantities,  only  those  fragments  exceeding  the  kinetic  energy  criterion 
are  used. 

An  additional  hazard  measure  is  used  in  calculating  hazard  density  and  probability  of  hit.  This 
measure  is  called  a  percentile  value.  The  percentile  measurement  may  be  thought  of  as  a  confidence  level.  If 
we  were  to  use  a  90th  percentile  value,  one  could  understand  this  to  mean  that  we  would  be  90  percent 
confident  that  the  hazard  densities  and  probabilities  of  hit  would  not  exceed  the  values  listed.  The  90th 
percentile  value  will  have  10  percent  of  the  distribution  above  it.  For  example,  after  sorting  the  60  values  at 
a  particular  100-ft  hazard  segment,  the  54th  largest  would  be  the  90th  percentile  value. 

Number  of  Units  to  Exceed  the  Hazard  Criterion 


These  data  are  used  primarily  for  establishing  the  hazard  ranges  versus  number  of  units  for  stacked 
munitions  of  interest  to  the  DDESB.  Two  tables  are  output,  one  based  on  the  hazard  density  criterion  and  one 
based  on  the  hazard  probability  of  hit  criterion.  Table  2  is  an  example  of  the  output  table  based  on  the  hazard 
density  criterion.  The  number  of  units  required  is  equal  to  the  hazard  density  criterion  (one  hazardous  fragment 
per  600  ft2)  divided  by  the  hazard  density  for  one  unit.  Note  the  reciprocal  nature  of  the  calculation;  the  higher 
the  hazard  density  the  less  the  number  of  units  required  and  the  greater  the  hazard.  Only  the  90th  percentile 
column  is  shown;  the  other  columns  would  have  analogous  entries. 
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FIGURE  5.  ACTUAL  VERSUS  PREDICTED  RECOVERY  DATA 
FOR  36  PALLETS  OF  155MM  PROJECTILES 
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Q  Zone  80-90 
♦  Zone  90-1 00 
B  Zone  100-110 
Predicted  Min 
Predicted  Max 


0  1000  2000  3000  4000 

Range  from  Stack  (Ft) 

FIGURE  6.  ACTUAL  VERSUS  PREDICTED  RECOVERY 
DATA  FOR  A  SINGLE  PALLET  OF  MK  82  BOMBS 


TABLE  2.  NUMBER  OF  UNITS  REQUIRED  TO  JUST 


EXC) 

SED  THE  HAZARD  DENSITY  CRITEF 

ION 

Range 

Minimum 

90% 

50% 

Maximum 

50 

0.12 

150 

0.24 

250 

0.43 

350 

0.62 

450 

2.31 

550 

5.16 

650 

8.14 

750 

12.72 

850 

950 

20.41 

I  > 

34.63 

53.12 

nr\ 

tnyrTT 

168:6 1 

A  rt  r> 

ITTToa 
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67.73 

168:18 

84.73 

mBm 

150.71 

83063 

2050 

214.91 

335.26 

999999.00 

999999.00 

1 
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Note  that  the  range  (distance)  is  given  as  the  midpoint  of  each  1 00-ft  hazard  segment  and  is  ready  for 
plotting.  Four  columns  of  data  arc  provided,  one  each  for  the  minimum,  selected  percentile,  50th  percentile, 
and  maximum  number  of  units  required  to  just  exceed  the  hazard  density  criterion.  From  a  practical 
standpoint,  each  column  of  numbers  can  present  a  problem  of  interpretation.  For  example,  the  entry  at  850  ft 
is  27.35  and  the  entry  at  950  ft  is  20.41.  This  leads  to  a  contradiction  from  a  safety  standpoint  even  though 
the  entries  are  quite  plausible.  The  lesser  number  of  units  required  at  the  greater  range  implies  that  when 
•ve  add  units  to  a  stack,  the  hazard  range  can  decrease.  Since  20.41  is  contained  in  27.35,  the  20.41  number 
'hould  predominate  and  the  27.35  point  should  be  eliminated.  A  systematic  way  of  going  about  point 
'limination  is  to  start  at  the  top  of  the  table  and  go  down  point  by  point.  At  each  point,  look  back  and  if  any 
jrevious  points  are  equal  to  or  greater  than  the  point  you  are  at  then  eliminate  those  points.  Continue  down 
n  this  way  until  you  run  out  of  points  or  all  succeeding  points  are  999999.00.  The  999999.00  points  indicate 
10  hazard;  that  is,  no  hazardous  fragments  are  in  those  100-ft  hazard  segments.  When  you  are  finished,  you 
'hould  have  a  set  of  points  that  are  constantly  getting  bigger  with  range.  Figure  7  shows  both  retained  and 
-  liminated  points  plotted  versus  hazard  distance.  If  lines  are  drawn  connecting  the  retained  points,  we  form 
-in  upper  bound.  This  upper  bound  can  be  somewhat  erratic  owing  to  the  uncertain  input  data  and  the  many 
■lon-linear  relationships  associated  with  trajectory  calculations.  A  regression  curve  may  be  calculated  using 
the  retained  points.  A  practical  equation  form  for  regression  is: 

R=A,+  AAnN  +  AAn^N 

where 

R  =  Range  or  distance 

N  =  Number  of  units  required 

In  =  Natural  log  ^ 

Ai  A2  A3  =  Constants  determined  by  regression 

A  regression  program  listing  is  contained  in  Appendix  A.  Figure  7  shows  the  regression  curve  for  the 
retained  points  in  Table  2. 


SUMMARY 

The  FRAGHAZ  computer  model  provides  a  flexible  tool  for  predicting  the  fragment  hazards  of  stacks  of 
ammunition.  The  program  has  the  inherent  capability  of  considering  the  multidimensional  problem  posed  by 
fragmentation  hazards.  The  program  has  more  than  200  variables.  Its  modular  characteristics  make  it 
relatively  easy  to  modify  for  specific  problems  like  barricade  effectiveness  and  public  traffic  route  studies. 

The  essential  characteristics  of  the  program  are  as  follows: 

-  MONTE  CARLO  and  FULL  FACTORIAL  options 
Individual  three-dimensional  fragment  trajectories 
Two-dimensional  wind  vectors  (horizontal  plane) 

Fourth  order  Runge-Kutta  trajectory  calculations 

F ragment  ricochet  included 

Incorporates  three-dimensional  targets 

Can  use  different  hazard  criteria 

Air  density  and  sound  speed  a  function  of  altitude 

Storage  sites  may  be  at  different  altitudes 

Drag  coefficient  a  function  of  the  fragment  presented  area  ratio  and  Mach  number 
Predicts  distribution  of  final  fragment  impacts  in  the  ground  plane 

Predicts  hazard  density,  and  probability  of  hit  as  a  function  of  range  for  different  hazard  levels 
(MIN,  PCT,  50th  PCT,  MAX) 

Predicts  hazard  distance  values  for  different  hazard  levels  (MIN,  PCT,  50th  PCT,  MAX)  as  a 
function  of  number  of  units  required  in  terms  of  two  hazard  criteria,  density  and  probability  of  hit 
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DETAILED  PROGRAM  DESCRIPTION 


INTRODUCTION 

The  FRAGHAZ  program  has  been  coded  in  Microsoft  FORTRAN  77  for  use  with  the  IBM  PC-AT.  The 
Program  Listing  is  contained  in  Appendix  B.  The  variables  are  defined  in  Appendix  C. 

Although  INPUT  and  OUTPUT  may  be  in  different  units,  all  calculations  within  the  program  are 
made  in  terms  of  pounds-feet-seconds.  Radians  are  used  for  all  trigonometric  functions  and  arc  length 
i’unctions. 

The  program  is  divided  into  26  blocks  with  block  21  divided  into  three  sub-blocks.  The  discussion  that 
follows  will  describe  the  program  block  by  block  and  line  by  line  where  necessary. 

Lines  1-7 

The  first  7  lines  of  the  program  arc  reserved  for  the  program  title  and  any  general  remarks  that  seem 
appropriate.  The  command,  $LARGE,  insures  efiicient  handling  of  large  arrays  by  the  compiler.  The 
command,  SDEBUG,  insures  that  if  an  error  occurs  in  the  running  program,  the  line  number  at  which  the 
error  occurs  will  be  included  in  the  error  message. 

BLOCK-1.  DECLARE  DATA  TYPES  FOR  VARIABLES,  DIMENSION  ARRAYS 

The  variables  are  divided  by  type  into  REAL,  INTEGER,  DOUBLE  PRECISION,  and  CHARACTER. 
All  DOUBLE  PRECISION  variables  begin  with  the  letter  U.  The  U  variables  are  listed  in  Block  25,  the 
function  subprogram  to  calculate  random  numbers.  Two  variables  (XE  and  XD)  not  listed  in  Block  1  are 
listed  in  Block  26,  subroutine  INTSTP,  which  calculates  the  displacement  integration  step  for  the  Runge- 
Kutta  routine.  All  variables  are  defined  in  Appendix  C. 

Block  1  also  assigns  values  to  constants  that  do  not  change  from  run  to  run.  Values  are  also  given  for 
constants  that  may  change  from  run  to  run.  For  example,  the  height  (HM),  width  (WM),  and  depth  (DM) 
measurements  for  the  target  will  change  when  a  difierent  target  is  used.  The  measurements  shown  are  for  an 
average  male  soldier^  approximated  by  a  rectangular  parallelepiped. 

BLOCK-2.  VARIABLES  TO  BE  INPUT  AT  RUN  TIME-SELECT  MONTE  CARLO 
OR  FULL  FACTORIAL  OPTION 

The  variables  are  entered  on  the  monitor  screen  in  answer  to  the  WRITE  prompt  statements.  The 
variables  are  sent  to  memory  by  the  READ  statements.  The  user  may  want  to  READ  the  variables  from  a 
disk  data  file,  but  this  will  require  editing  the  data  file  repeatedly  when  running  a  variety  of  input 
combinations. 

Lines  86-89 

The  Frag  Data  File  name  is  entered  and  used  later  to  input  all  necessary  frag  data.  The  file  name  is 
contained  in  the  character  variable  called  Q. 


2Castard,  G.  H.  et  al.  Evaluation  of  Explosive  Safety  Criteria,  AD871194,  May  1970, 
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I-ines  90-91 

The  output  file  name  designates  the  printer  for  all  output  data  The  designation  is  LPT  1  and  is 
contained  in  the  character  variable  called  NAM 


Lines  92-93 


Only  one  target  per  run  is  allowed.  Tlie  target  description  is  contained  in  the  character  variable  TS. 
The  height,  width,  and  depth  measurements  in  BLOCK  1 ,  lines  78  and  79  should  be  consistent  with  the  target 
description. 

Lines  94-97 


The  minimum  and  maximum  soil  constants  are  entered  here  This  is  one  of  the  random  variables.  If  a 
constant  soil  constant  is  desired,  then  enter  this  value  for  both  the  minimum  and  maximum  values.  The  soil 
constant  affects  the  ricochet  angle  and  velocity  It  also  determines  the  critical  ricochet  angle  above  which  the 
fragment  will  not  ricochet  Soil  constants  for  various  soils  and  ricochet  equations  are  p’^esented  in  Appendix  f 


Lines  98-101 


The  height  of  the  ammo  stack  and  the  stack  inert  ground  standoff  being  simulated  are  entered  here. 
Individual  fragment  heights  of  origin  (HO)  will  be  selected  from  between  these  two  values.  The  stack  height 
(US)  and  stack  inert  ground  standoff  (SIGS)  arc  depicted  in  Figure  8.  The  height  of  origin  is  a  random 
variable.  For  a  constant  HO,  enter  the  desired  constant  height  for  both  HS  and  SIGS. 


Lines  102-103 


The  number  of  interaction  areas  or  units  on  the  face  of  the  ammo  stack  towards  the  target  area  is 
entered  here. 


Lines  104-105 


'I'hc  number  of  fragment  multipliers  is  entered  here.  Thect  will  be  one  multiplier  foi  each  pidar  zone 
used  in  describing  the  fragmentation.  The  multiplier  is  the  elTective  number  of  fragments  for  one  interaction 
area  (unit)  and  1  deg  of  azimuth  as  defined  by  the  small  scale  fragment  arena  test.  Since  ricochet  occurs  at 
incident  angles  loss  than  20  deg,  jxilar  zones  need  only  cover  the  range  of  0  to  !  10  deg  Normally  the  upper 
limit  has  been  130  deg  to  cover  possible  future  changes  in  the  maximum  ricochet  angle.  The  derivation  of 
fragment  multipliers  is  explained  in  Appendix  D 


Lines  106-107 

The  number  of  fragments  to  be  used  in  the  simulation  is  entered  here.  Usually  all  fragments  greater 
than  300  grains  arc  used.  The  number  of  fragments  includes  all  fragmems  recovered  in  the  small  scale  arena 
tests  between  specified  azimuthal  limits. 
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Lines  108-110 


The  percentile  criterion  to  be  used  in  the  output  tables  is  entered  here.  The  percentile  may  be  looked  at 
as  the  level  below  which  the  percent  (percentile  expressed  as  a  percent)  of  occurrences  takes  place.  For 
example,  a  90th  percentile  level  would  be  that  level  at  which  90  percent  of  tlie  occurrences  have  already 
taken  place.  Another  way  of  looking  at  a  90th  percentile  level  would  be  to  say  that  on  an  average  only  10 
percent  of  the  occurrences  will  be  greater  than  the  99th  percentile  level  The  variable  PCTD  is  in  decimal 
notation  which  will  be  used  in  all  calculations. 


Lines  1 11-1 19 

The  MONTE  CARLO  or  FULL  FACTORIAL  option  is  selected  *ici  e.  The  flag  RZ  determines  the 
appropriate  path  to  be  followed  in  the  program. 

If  the  MONTE  CARLO  option  has  been  selected,  then  the  number  of  replication  is  entered  in  lines  115 
and  116. 

Regardless  of  which  option  is  selected  the  number  of  replications  or  treatments  for  which  trajectory 
data  is  to  be  printed  is  entered  in  lines  117  and  119.  This  means  that  the  initial  and  final  conditions  fo/ each 
fragment  trajectory  will  bo  printed  for  as  many  replications  or  treatments  selected  here.  See  test  case  output 
in  Appendix  H. 
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Lines  12i)-123 


The  maximum  and  minimum  altitude  oi  sites  being  simulated  is  entered  here.  This  is  one  of  the 
random  variables.  If  a  constant  altitude  is  desired  then  enter  this  value  for  both  the  maximum  and  minimum 
values.  The  altitudes  can  be  positive  or  negative  depending  on  the  site  o'"  sites  being  above  or  below  sea  level. 


Lines  124-127 


The  maximum  and  minimum  wind  speeds  arc  entered  here.  T'his  is  another  of  the  random  variables.  If 
a  constant  wind  .speed  is  desired  then  enter  this  value  foi'  both  the  maximum  and  minimum  values. 


l.ines  128-131 


Wind  direction  is  entered  here.  The  wine!  direction  is  inea.surcd  clockwise  from  the  X-Y  plane  as  shown 
in  Figure  9.  A  tail  wind  is  0  deg.  For  practical  hazard  calculations,  only  a  tail  wind  has  been  used  to  date.  If  a 
crosswind  component  is  used,  then  fragments  need  not  remain  in  the  10  deg  hazard  volume,  and  changes  to 
the  program  may  have  to  be  addressed  Wind  is  always  in  a  horizontal  plane  parallel  to  the  ground  plane  at 
the  current  point  trajectory  calculation  DW  retains  the  wind  direction  in  dog;  WI)  is  then  changed  to 
radians  for  calculations. 


X  (RANGE) 

Y  (ALTITUDE)  / 


FIGUHH  9  TRA.JFCrORV  COORDIXA'rF  SYSTIvM 
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Lines  132-I35 


The  niaxitmini  compulation  ranf^e  is  entered  here.  To  make  all  the  output  tables  cover  the  desired 
r.inge,  the  maximum  computation  range  should  be  a  multiple  of  1200  ft.  If  the  user  selects  loo  small  a  range, 
then  t  he  number  of  all  fragments  exceeding  t  hi.s  range  will  be  collected  in  a  single  memory  location  ('I'd )  and 
printed  out.  If  TJ  is  greater  than  0,  then  the  ust  r  can  rerun  at  a  greater  maximum  computation  range. 
Inci'easing  the  computation  range  duos  not  significantly  increase  the  running  time  for  the  program,  it  only 
increases  the  amount  of  paper  used  in  the  output  tables.  Following  the  input  of  the  maximum  computation 
range,  a  trap  is  provided  to  round  the  range  to  an  even  hundreds  value.  The  new  variable  (MR)  will  be  used  in 
ail  calculations. 

Tines  136-137 


The  hazard  kinetic  energy  criterion  is  entered  here.  Currently  this  value  is  a  ft-lbs.  If  another  type  of 
hazard  criterion  is  to  be  used  then  the  hazard  calculation  in  line  fiO.5  (BLOCK  1 S)  will  have  to  be  changed  to 
reflect  the  new  hazard  type.  For  example,!  imentum,  energy  density,  etc  might  be  used.  For  an  upper 
hound,  that  is,  all  fragments  considered  hazardous,  enter  zero  for  the  kinetic  energy  criterion. 

Line.s  138-139 


The  hazard  density  criterion  is  entered  here  Currently  this  value  is  one  fragment  per  600  ft^ 
(0.0016667)  for  personnel  For  any  other  target  the  erilerion  will  be  l/(  100  A)  where  A,  in  ft2,  is  a  single 
characteristic  value  for  the  presented  area  of  the  target;  e  g.,  average,  maximum,  etc.  These  density  criteria 
correspond  to  an  expected  probability  of  hit  of  0.01 . 

Lines  140- 1 4 1 


'I'hc  hazard  probability  of  hit  criterion  is  enteied  here.  To  be  compatible  with  the  hazard  density 
criterion,  the  value  is  currently  set  at  0,01 .  Changing  targets  docs  not  affect  this  value.  The  probability  of  hit 
criterion  includes  the  actual  presented  area  of  the  target  in  the  plane  perpendicular  to  each  trajectory  while 
the  haz;ird  density  criterion  does  not. 

Lines  142-145 

If  the  MONTH  CARLO  option  is  selected,  then  the  random  number  generator  seed  is  entered  here.  The 
seed  variable  (USE)  is  a  double  precision  integer  variable  varying  from  1  to  2147483646.  'Fhe  l  andom 
numbe!'  generator  used  in  this  program  is  quite  [jortablc,  that  is,  it  will  produce  the  same  string  of  random 
aiiablcs  fo-  a  given  seed  on  almost  all  computers.  This  permits  the  use  of  the  same  MONTE  CARLO 
checkout  procedure  for  many  of  the  users  with  different  computers  Additionally,  it  provides  the  capability  of 
I'unning  the  same  MONTE  CARLO  problem  by  difl'erent  users  with  difTerent  computers.  Appendix  F 
contains  a  description  olThc  random  number  generator  and  a  program  listing,  which  the  user  can  use  to 
di'tormino  whelhei'  his  computer  will  produce  the  same  results  with  the  portable  generator. 
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Lines  147-148 


Line  147  i  j  a  prompt  to  tell  the  user  to  insert  the  disk  containing  the  appropriate  fragntentation  data 
designated  by  the  tile  naine  enteied  previously  in  linos  86-89.  For  example  the  file  name  for  ISSi.'im 
projectiles  is  FFRG 1 55M.  After  inserting  the  data  disk,  the  user  pt  esses  "KNTFR”  and  the  program 
continues. 


Line  149 

The  program  begins  running  and  prints  "FRAGM  A/-  KL'NXING’’  on  the  screen  to  let  the  user  know 
that  the  sequence  has  begun. 


SLOCK-3.  PRINT  ALL  KSSKNTIAL  CONDITIONS  FOR  RUN 


Line  154 

In  line  154,  the  printer  port  ( 1 )  is  open  to  direct  all  output  to  the  printer. 

Lines  155-177  and  184-199 

Those  lines  write  to  the  printer  all  conditions  affecting  the  run  Most  of  i  ho  linos  write  the  data  input 
in  BLOCK-2. 


Lines  178-183 


These  lines  print  the  seed  selected  for  the  MONTF  CARLO  option  and  then  >.  ith  the  variable  V  cal  Is 
the  random  number  generator  to  produce  the  first  random  number  from  the  seed.  The  random  number 
contained  in  Y  is  not  used.  From  here  on,  each  random  number  is  produced  with  the  call  KND  ( LPL'M) 


BLOCK-4.  HKADINGS  AND  NUMBER  FORMATS  FOR  OUTPUTTABLES 


Lines  204-233 


These  are  th(' headings  and  number  formats  in  FORTRAN  notation  that  v/ill  accompany  tht'  ('utput 
tables.  'I'hey  should  be  familia."  to  a  user  versed  ii.  FORTRAN  77. 


BLOCK-5.  READ  FRAGMENTATION  DATA.  IF  APPLICABLE,  READ 
FULL  FACTORIAL  DATA 


Line  239 

The  fragmentation  data  file  port  (2)  isopen  prior  to  reading  tlu'  dtUa  in  linos  240,  2'17,  and  262,  il  the 
FULL  FACTORIAL  option  has  been  selected 
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Unes  240-245 


There  are  three  parts  to  the  fragmentation  data  contained  on  the  fragmentation  data  disk.  The  first 
part  is  the  fragmentation  multipliers,  usually  13,  to  cover  the  polar  zone  range  from  0  to  130  deg  and  the 
complimentary  elevation  angle  range  from  —  40  to  +  90.  The  second  part  of  the  fragmentation  data  contains 
five  variable  characteristics  for  defining  the  initial  conditions  for  each  fragment.  The  above  two  parts  pertain 
equally  to  the  MONTE  CARLO  and  FULL  FACTORIAL  options.  The  third  part  contains  the  levels  for  each 
random  variable  to  be  used  with  the  FULL  FACTORIAL  option  only. 

The  fragmentation  multipliers  are  read  in  line  240  and  then  printed  out  in  line  242.  In  lines  243-245, 
the  multipliers  are  multiplied  by  the  Azimuth  Sector  size  (AS),  usually  10  deg.  Remember  that  the  fragment 
multipliers  are  for  one  unit  and  one  deg  of  azimuth  as  explained  in  Appendix  D.  Multiplication  by  the 
number  of  units  specified  in  the  input  will  take  place  later  in  BLOCK-18,  line  584. 


Lines  246-250 


The  five  variables  defining  the  essential  characteristics  for  each  fragment  are  read  here.  The  five 
variables  are;  Polar  Zone  Upper  Limit,  Fragment  Weight,  Area  to  Mass  Ratio,  Average  Initial  Velocitji,  and 
^laximum  to  Average  Presented  Area  Ratio.  In  lines  24S-245^Q\e  elevation  angle  defining  tfiFel'e\^tion  zone 
is  calculated.  For  example,  a  polar  angle  (PA)  of  30  deg  would  define  the  polar  zone  20  to  30  deg.  The 
complimentary  elevation  angle  is  equal  to  {90-PA),  and  in  this  case,  would  be  60  deg  defining  the  elevation 
zone  60  to  70  deg.  Likewise,  a  120  deg  polar  angle  would  define  the  polar  zone  1 10  to  120  deg  and  the 
complimentary  elevation  zone  of  -  30  to  -  20  deg.  Elevation  angles  are  with  respect  to  the  horizontal, 
positive  upwards,  and  negative  downwards.  A  positive  initial  elevation  angle  is  shown  in  Figure  9.  The 
variables  IE  (F)  and  AE  (F)  are  saved  in  deg  for  later  use. 


Lines  251-271 


These  lines  apply  only  if  the  FULL  FACTORIAL  option  has  been  selected  (Option  Flag  RZ  =  0).  In  line 
252  the  heading  "FACTOR  LEVELS”  is  printed.  In  lines  253  to  259,the  names  of  the  seven  random  variables 
are  assigned  to  the  character  array  variable  (H9).  The  reading  of  the  levels  for  each  random  variable  takes 
place  in  line  262.  Note  that  the  READ  statement  stipulates  that  on  error  go  to  1 128  (line  263).  The  last  entry 
for  the  factor  levels  is  a  letter  which  causes  an  error  in  the  READ  statement  that  finishes  the  number  of  factor 
levels  for  that  random  variable.  While  reading  each  factor  level,  a  count  is  kept  in  (NL  (D).  When  all  factor 
levels  are  read,  the  number  of  treatments  is  calculated  in  line  266  as  the  product  of  the  number  of  factor  levels 
for  each  random  variable.  Note  that  the  variable  NR  is  used  for  the  number  of  treatments,the  same  variable 
used  for  the  number  of  replications  in  the  MONTE  CARLO  option.  As  far  as  the  FRAGH  AZ  program  is 
concerned,  the  two  options  differ  only  in  the  manner  in  which  the  initial  conditions  are  selected  for  each 
fragment.  Lines  267-269  constitute  a  trap  to  stop  the  program  if  the  number  of  treatments  is  greater  than 
100.  If  the  user  needs  more  than  100  treatments  or  replications,  then  the  array  variables  (D6H),  (PX)  and 
(YN)  will  have  to  be  redimensioned  in  BLOCK-1  by  changing  the  first  element  of  each  from  100  to  the  desired 
maximum  number  of  treatments  or  replications  desired. 


Line  272 


The  fragmentation  data  file  is  closed  here.  At  this  point  all  necessary  fragmentation  data  have  been 

read. 
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Lines  273-279 


The  number  of  treatments  or  replications  and  the  number  of  treatments  or  replications  to  be  printed 
are  printed  out  here  depending  upon  the  value  of  option  flag  (RZ).  The  number  of  treatments  or  replications 
to  be  printed  means  that  the  initial  and  final  conditions  for  each  fragment  trajectory  will  be  printed  out  for  as 
many  treatments  or  replications  specified.  This  output  is  good  for  making  spot  checks  to  insure  that  the 
FRAGHAZ  program  is  running  as  intended. 


BLOCK-6.  BEGIN  REPLICATION  OR  TREATMENT  LOOP-SET  CONDITIONS 


Line  284 


The  maximum  range  variable  (MR)  is  expressed  in  hundreds  of  feet. 


Lines  289-293 

The  probability  of  not  hitting  the  target  (PX  (T,  R))  is  initialized  for  all  replications  or  treatments  and 
for  each  100-ft  range  increment.  The  null  value  is  one  because  the  variable  is  the  probability  of  not  hitting 
the  target.  The  probability  of  hitting  the  target  is  1-PX  (T,  R). 


Lines  295-296 

The  replication  or  treatment  counter  (T)  is  set  back  to  zero  in  line  295  after  its  use  in  the  previous  DO 
loop.  In  line  296,  the  flag  RZ  determines  whether  we  will  follow'  the  MONTE  CARLO  or  FULL  FACTORIAL 
option  in  controlling  the  replication  or  treatment  loop. 


Lines  297-299 


If  the  MONTE  CARLO  option  has  been  chosen  then  the  replication  counter  is  incremented  in  line  297. 
The  loop  will  be  complete  w'hen  the  IF  statement  in  line  298  is  satisfied.  The  return  terminal  point  for  the 
replication  loop  is  line  709.  When  the  IF  statement  in  line  298  is  satisfied  we  go  to  3570  (line  718)  and  start 
the  SORT  routines  which  follow'  the  completion  of  all  trajectory  calculations. 


Lines  301-322 


This  is  the  treatment  control  loop  used  when  the  FULL  FA,CTORIAL  option  is  chosen.  It  is  controlled 
with  GOTO  statements.  Variables  FI  thru  F7  correspond  to  the  seven  random  variables  named  in  lines  253- 
259.  The  array  variables  NL(1)  thru  NL(7)  contain  the  number  of  levels  associated  with  each  of  the  seven 
random  variables.  For  the  first  treatment,  all  variables  are  set  to  their  first  level  and  the  treatment  counter 
(T)  is  incremented  in  line  322.  Note  that  the  treatment  counter  is  the  same  as  that  used  to  count  MONTE 
CARLO  replications.  When  this  treatment  is  completed,  the  program  is  returned  to  1 169  (line  320)  by  the 
GOTO  statement  in  line  711.  .At  1169  (line  320),  F7  is  incremented.  This  continues  until  F7  is  greater  than 
NL(7)  at  which  time  w’e  GOTO  1 168  (line  317).  In  line  317,  'vari-able  F6  is  incremented  to  its  second  value  and 
F7  is  returned  to  0  and  then  incremented  to  its  original  first  value.  We  then  increment  thru  F7  again  until  F7 
is  greater  than  NL(7).  In  this  way  w'e  work  up  the  ladder  and  produce  all  the  combinations  for  the  factor 
!e%'els  of  the  seven  random  variables.  Ultimately  we  get  to  the  point  where  all  combinations  (treatments) 
have  been  run  and  satisfy  the  IF  statement  in  line  303.  At  this  point  we  GOTO  3570  (line  718)  and  start  the 
SORT  routines  which  follow  the  completion  of  all  trajectory  calculations. 
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Lines  324-335 

Here  we  calculate  the  values  for  the  soil  constant,  altitude,  and  wind  speed  for  each  replication  or 
treatment.  Factor  levels  are  used  in  establishing  the  values  of  the  three  random  variables  when  the  FULL 
FACTORIAL  option  is  selected.  When  the  MONTE  CARLO  option  (RZ  =  1)  is  selected,  random  uniform 
numbers  between  zero  and  one  are  used  by  calling  the  RND  function  with  RND  (UDUM).  In  either  case,  if  we 
had  entered  the  same  value  for  the  maximum  and  minimum  values  of  any  of  the  three  random  variables,  then 
the  random  variable  would  remain  constant  at  this  value  over  all  replications  or  treatments. 

Lines  337-343 


Here  we  set  the  loop  variable  iXL)  and  the  flag  (EZ)  which  will  be  used  in  the  Runge-Kutta  routine, 
lines  52Sanu  520.  When  there  is  no  cross-range  component  of  wind,  XL  =  4  and  EZ  =  0,  then  all  calculations 
will  be  in  the  X-Y  plane  only.  When  there  is  a  cross-range  component,  then  trajectory  calculation  will  also  be 
made  in  the  Z  (cross-range)  direction  (XL  =  6  and  EZ  =  1). 

Lines  345-348 

The  soil  constant,  altitude,  and  wind  speed  are  printed  out  at  the  top  of  the  trajectory  tables  in  lines 
345  and  346.  We  change  to  a  compressed  mode  of  about  17  characters  per  in.  for  the  trajectory  table  heading 
and  the  actual  trajectory  values  with  the  printer  call  in  line  347.  The  heading  for  the  trajectory  table  is 
printed  in  line  348.  An  explanation  of  the  heading  elements  is  given  in  Appendix  H. 

Lines  349-353 


The  average  total  and  hazardous  probabilities  of  not  hitting  the  target  are  initialized  to  one  at  the 
beginning  of  each  replication  or  treatment.  These  variables  will  be  used  in  calculating  the  average 
probability  of  not  hitting  the  target. 


BLOCK-7.  BEGIN  FRAGMENT  LOOP-SET  HEIGHT  OF  ORIGIN 
AND  ELEVATION  ANGLE 

Line  358 


The  fragment  loop  begins  here.  We  will  calculate  trajectories  and  accumulate  statistics  for  each  . 
fragment  in  each  replication  or  treatment. 

Line  359 


The  number  of  rebounds  (ricochets)  is  set  to  zero  at  the  beginning  of  each  trajectory  calculation. 
Lines  360-368 


The  random  variables  (HO-Height  of  Origin)  and  (E-Elevation  Angle)  are  set  for  each  fragment 
trajectory.  The  procedure  is  accomplished  with  a  Factor  Level  for  the  FULL  FACTORIAL  option  (RZ  =  0)  or 
with  a  Uniform  Random  Number  (zero  to  one)  for  the  MONTE  CARLO  option.  Note  that  if  the  same  value  has 
been  input  for  the  HS  and  the  SIGS  then  HO  will  be  constant  for  all  fragment  trajectories  and  all  replications  or 
treatments.  The  variable  HO  is  shown  in  Figure  9.  The  variable  ES  is  the  elevation  zone  size,  normally  10  deg. 
As  such,  the  uncertainty  in  the  elevation  angle  is  also  10  deg.  Note  we  divide  by  (B)  to  express  (E)  in  radians  for 
trajectory  calculations.  Two  variables  (XE)  and  (YE)  are  expressed  in  deg  for  later  use. 
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Lines  370-374 


Here  the  flag  (CY)  is  set  to  one  if  HO  is  greater  or  equal  to  the  target  height  (HM),  which  means  that 
the  fragment  starts  at  the  top  or  above  the  hazard  volume.  The  flag  is  set  to  zero  if  the  fragment  starts  within 
the  hazard  volume.  This  flag  is  used  in  conjunction  with  the  flag  (CX)  to  determine  the  range  at  which  the 
fragment  pierces  the  roof  of  the  hazard  volume  when  coming  from  below.  The  use  of  this  flag  will  be  discussed 
in  detail  in  BLOCK-17. 


BLOCK-S.  SET  REMAINING  INITIAL  CONDITIONS  FOR  CURRENT  FRAGMENT 
Une  379 


The  variable  (FG)  is  defined  and  will  be  used  in  calculating  the  kinetic  energy  of  the  fragment  in 
line  605. 

Line  380 


The  variable  (RL-Range  Last)  is  set  to  zero.  This  variable  is  used  to  determine  when  a  fragment 
trajectory  passes  from  one  100-ft  increment  to  another  in  the  hazard  volume.  A  number  of  variables  must  be 
reset  when  this  occurs  (see  lines  562  to  578).  The  variable  (RL)  is  expressed  in  hundreds  of  fit  to  be  compatible 
with  the  variable  (R).  For  example,  when  (R)  or  (RL)  equals  7  we  know  we  are  dealing  with  the  600  to  700-ft 
range  increment. 

Lines  382-394 


Here  we  prevent  the  elevation  angle  from  being  0  or  90  deg.  Such  values  would  cause  trouble  later 
when  we  must  make  calculations  using  the  sine  and  tangent  of  the  elevation  angle.  The  highest  positive 
elevation  permitted  is  89.99  deg.  The  lowest  positive  elevation  angle  permitted  is  0.01  deg.  The  highest 
negative  elevation  angle  permitted  is  —0.01  deg. 

Line  395 


Here  we  call  the  Integration  Step  Subroutine  (BLOCK-26).  Although  the  Runge-Kutta  routine  will 
use  a  time  step,  using  a  displacement  step  can,  under  certain  conditions,  speed  ud  the  program  by  a  factor  of 
10.  The  displacement  step  is  converted  to  a  time  step  by  dividing  it  by  the  current  magnitude  of  the  fragment 
velocity  vector.  Details  of  the  displacement  step  will  be  explained  when  we  get  to  BLOCK-26. 

Lines  397-407 


The  value  of  fragment  initial  velocity  is  computed  here.  This  is  one  of  the  random  variables.  From 
experience,  the  approximate  error  in  measuring  average  initial  velocity  for  a  polar  zone  is  between  plus  and 
minus  seven  percent  of  the  measured  velocity.  This  is  due  to  instrumentation  error.  The  error  is  assumed  to 
fit  a  normal  distribution  with  one  sigma  equal  to  three  and  one-half  percent  of  the  measured  average  velocity. 
For  the  FULL  FACTORIAL  option  (RZ  =  0),  the  velocity  factor  levels  are  expressed  in  sigmas.  For  the 
MONTE  CARLO  option  (RZ  =  1)  we  make  use  of  a  Standard  Normal  Random  Number  generator  (lines  400- 
403)  with  a  mean  of  zero  and  a  variance  of  one.  This  generator  which  uses  two  Uniform  Random  Numbers 
(zero  to  1)  and  produces  two  Standard  Normal  Random  Numbers  (N1  and  N2)  has  been  described  in  the 
literature. 3  Again  one  sigma  is  taken  as  three  and  one-half  percent  of  the  measured  average  velocity  for  the 
polar  zone.  Note  that  only  N1  is  used.  N2  is  a  spare  for  possible  future  use.  Finally,  the  value  of  initial 
velocity  for  the  fragment  is  saved  in  variable  (XV)  for  output  in  the  trajectory  tables. 


3Box,  G.  E.  P.  and  Muller,  M.  E.,  A  Note  on  the  Generation  of  Random  Normal  Deviates.  Analysis  of 
Mathematical  Statistics,  (1958)  Vol.  29,  pp  610-611. 
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BLOCK-9.  ESTABLISH  DRAG  PARAMETERS 
Lines  412-421 


Here  we  calculate  the  anchor  point  (Dl)  and  three  pivot  points  (D2,  D3,  D4),  which  will  be  used  in 
8LOCK-14  to  produce  the  straight  line  approximations  to  the  drag  curve.  The  state  of  knowledge  concerning 
drag  for  irregular  fragments  is  such  that  a  com.plicated  curve  cannot  be  justified.  Each  fragment  in  each 
replication  or  treatment  has  its  own  drag  curve  approximation  depending  on  its  maximum  to  average 
presented  area  ratio.  The  drag  coefficient  is  a  sensitive  parameter.  The  low  subsonic  drag  coefficient  can 
vary  from  0.5  to  1,5  depending  on  the  shape  of  the  irregular  fragment.  Going  from  1.5  to  0.5,  the  drag 
coefficient  for  a  typical  far-field  trajectory  can  produce  a  doubling  of  range. 

The  drag  coefficients  used  in  the  FRAGH  AZ  program  were  derived  by  tests  in  a  vertical  wind  tunnel. 't 
N'inety-six  fragments  were  tested  by  controlling  the  vertical  air  stream  until  the  fragment  was  suspended  in 
vertical  equilibrium.  At  this  point,  the  drag  coefficient  can  be  calculated  as  shown  in  Figure  10  because  the 
drag  force  and  the  weight  (W)  of  the  fragment  arc  equal.  The  velocity  (V')  and  the  density  of  the  air  (p)  are 
measured  at  the  time  of  vertical  equilibrium..  For  these  tests  the  characteristic  area  (A)  was  the  average 
presented  area  of  the  fragment  in  all  cases.  The  equation  at  the  bottom  of  Figure  10  is  applied  with 
appropriate  units  to  make  Cq  dimensionless. 

Since  Cq  is  dimensionless,  any  correlating  parameters  must  also  be  dimensionless.  A  great  number  of 
dimensionless  ratios  were  attempted.  These  were  based  on  linear,  area,  perimeter,  variances,  and  moments 
of  inertia.  The  best  correlation  was  obtained  with  the  dimensionless  ratio-Maximum  to  Average  Presented 
Area.  The  results  for  all  96  fragments  are  shown  in  Figure  11.  The  upper  and  lower  limits  of  uncertainty  are 
shown  as  straight  lines  which  are  used  to  calculate  specific  values  of  the  low  subsonic  Cd  for  either  the 
MONTE  CARLO  or  FULL  F.\CTORIAL  option.  Since  each  Cd  for  each  of  the  96  fragments  tested  applies 
only  to  the  velocity  (Mach  Number)  recorded  when  the  fragment  was  suspended  in  vertical  equilibrium,  w'e 
have  only  one  point  on  the  drag  curve.  In  the  tests,  the  Mach  Numbers  were  approximately  0.1.  These  Cd 
values  are  used  as  anchor  points  for  constructing  the  straight  line  approximations  to  the  Co  curves  for 
irregular  fragments  having  given  maximum  to  average  presented  area  ratios.  Note  that  Figure  11  applies  to 
fragments  of  any  material  because  Cd  is  a  function  of  shape  only  (including  surface  roughness). 

For  the  vertical  wind  tunnel  tests,  three  regular  fragments  were  used  as  a  check  on  the  data  presented 
in  an  earlier  report  on  fragment  drag  coefficients. ^  The  three  regular  fragments  were  a  sphere,  cube  and  a 
bar  (H  X  i  X  ^  in.).  In  the  Dunn  and  Porter  report,  values  of  Cd  for  these  fragments  were  given  at  a  Mach 
number  of  about  0.75.  When  these  values  were  compared,  the  following  relation  was  observed: 


Cp(M==0.1)  Cd(M  =  0.75) 
Wind  Tunnel  Dunn  and  Porter 


Difference 


Sphere 

0,42 

0.60 

-1-0.18 

Cube 

0.64 

0.88 

+  0.24 

Bar 

0.94 

1.12 

+  0.18 

■tMcCleskey,  Frank,  Drag  Coefficients  for  Irregular  Fragments,  Naval  Surface  Warfare  Center,  TR  87-89, 
February  1988. 

5Dunn,  D.  J,  Jr.,  and  Porter,  W.  R.,  Air  Drag  Measurements  of  Fragments,  BRL  memorandum  Report 
No.  915,  August  1955  (UNCLASSIFIED). 
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VERTICAL 

EQUILIBRIUM 
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Fo  =  DRAG  FORCE  =  — r - 


W  =  FRAG  WEIGHT 
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FIGURE  10.  EXPERIMENTAL  DRAG  COEFFICIENT 
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FIGURE  11.  DRAG  COEFFICIENT  (Cd)  VS.  PRESENTED  AREA  RATIO  (Ar) 

Owing  to  the  consistency  of  the  difTerences,  we  have  chosen  to  designate  the  first  pivot  point  at  Mach 
Number  0.75  wdth  a  Cd  0.2  larger  than  the  Cd  at  Mach  Number  0.1.  As  such,  we  have  a  reasonably  good 
.pproximation  to  the  shape  of  the  subsonic  drag  curve.  This  is  important  because  about  75  percent  of  the 
•ange  for  a  typical  far-field  fragment  is  traveled  at  subsonic  velocities. 

The  remainder  of  the  straight  line  approximations  to  the  drag  curve  for  each  fragment  are  shown  in 
'■’igure  12.  The  level  of  the  straight  line  approximation  is  totally  dependent  on  the  anchor  point  (Dl)  value 
-elected  from  Figure  11  for  any  particular  fragment.  Each  pivot  point  is  determined  by  adding  a  constant 
value  to  the  value  of  Cq  for  the  anchor  point.  The  constant  values  for  determining  pivot  points  two  and  three 
are  approximations  based  on  the  study  ofdata  contained  in  two  reports.?,?  These  data  were  quite  scattered. 
Note  in  Fiaure  12  that  the  Cd  above  Mach  Number  2.5  is  constant  at  the  value  designated  at  the  Mach 
Number  2.5  pivot  point. 


Nlaniels,  ct  al.,  Subsonic,  Transonic  and  Supersonic  Drag  Characteristics  of  Nine  Shape  Categories  of 
Warhead  Fragments ,  NSWC  TR  81-112,  May  1981. 
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FIGURE  12.  STRAIGHT  LINE  APPROXIMATION  TO  FRAGMENT  Co  CURVES 


To  use  F’igure  1 1 ,  we  must  be  able  to  nieasure  maximum  and  average  presented  area  for  any  irregular 
fragment.  This  can  be  done  with  a  gage  such  as  the  Icosahedron  Gage.  If  a  gage  is  not  available  or  the 
fragment  will  not  fit  the  gage,  then  a  good  approximation  may  be  made  using  an  equivalent  volume  and 
weight  parallelepiped.  First  measure  average  length  and  width  for  the  fragment  as  shown  in  Figure  13. 
Usually  length  is  taken  as  the  largest  dimension  and  thickness  the  smallest.  Then  calculate  average  thick¬ 
ness  using  the  equation  given  in  Figure  13.  With  the  average  values  for  length,  width  and  thickness,  average 
presented  area  and  maximum  presented  area  can  be  computed  using  the  equations  shown  in 
Figure  14. 

Lines  412  and  413  contain  straight  line  equations  for  the  high  (CH)  and  low  (CL)  limits  of  Cq 
uncertainty  for  a  given  maximum  to  average  presented  area  ratio  (AR2(Fh).  The  uncertainty  is  shown  in 
Figure  1 1.  The  area  ratio  is  the  last,  of  the  five  quantities  read  from  the  data  disk  for  each  fragment.  In  lines 
414-418,  the  specific  value  of  Co,  at  a  Mach  Num.ber  of  approximately  0.1,  is  calculated  for  the  FULL 
FACTORIAL  option  (RZ  =  0)  or  the  MONTE  CARLO  option  (RZ=  D.  For  the  FULL  FACTORIAL  option  sve 
use  the  current  factor  level  for  Cq.  For  the  .MONTE  C.ARLO  option  we  use  a  uniform  random  number  (zero  to 
one).  The  variable  D1  is  the  anchor  point  in  Figure  12. 
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AVERAGES 


FOR  EQUIVALENT  WEIGHT  AND  VOLUME 


WT 

~  lavg-Wavg-p 

WT  =  FRAG  WEIGHT  (lb) 

LavG  =  average  length  (in.) 

WavG  =  average  width  (in.) 
p  =  FRAG  DENSITY  (lb/in.3) 
p  =  0.28  (STEEL) 

FIGURE  13.  FRAGMENT  AVERAGE  LINEAR  DIMENSIONS 


Finally,  in  lines  419-421,  we  compute  pivot  points  2, 3,  and  4  (D2,  D3,  D4)  by  applying  the  constant 
offsets  to  the  anchor  point  shown  in  Figure  12. 

The  data  calculated  here  will  be  used  later  in  BLOCK-14  to  calculate  Cd  as  a  function  of  Mach  Number 
throughout  the  trajectory  of  each  fragment. 


BLOCK-10.  SET  INITIAL  CONDITIONS  FOR  FRAGMENT  TRAJECTORY 

Lines  426-432 


The  Runge-Kutta  routine  used  to  calculate  a  trajectory  requires  initial  velocity  and  displacement 
conditions.  The  calculated  velocity  and  displacement  conditions  at  the  next  point  require  the  velocity  and 
displacement  conditions  at  the  current  point.  The  displacement  along  the  trajectory  from  point  to  point  may 
be  a  matter  of  4  in.  or  as  large  as  70  ft  depending  on  conditions.  The  DI  array  variables  are  defined  as  follows: 
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DI  (1)  -  Accumulates  time  of  flight  in  seconds.  Not  part  of  the  Runge-Kutta  calculations 
DI  (2)  -  Range  (X)  component  of  velocity  (fl/s) 

DI  (3)  -  Range  (X)  component  of  displacement  (ft) 

DI  (4)  -  Altitude  (Y)  component  of  velocity  (ft/s) 

DI  (5)  -  Altitude  (Y)  component  of  displacement  (ft) 

DI  (6)  -  Cross-Range  (Z)  component  of  velocity(ft/s) 

DI  (7)  -  Cross-Range  (Z)  componentofdisplacement(fl) 


(EQUIVALENT  WEIGHT  AND  VOLUME  RECTANGULAR  PARALLELEPIPED) 


AVERAGE  =  0.5  (L  •  W  -h  L  •  T  +  •  T) 

MAXIMUM  =((L*W)2 -f  {1*1)2 ■ 

FIGURE  14.  FRAGMENT  PRESENTED  AREA  MEASUREMENTS 


Note  that  even  indices  are  for  component  velocities  and  odd  indices  are  for  component  displacements. 
Since  DI  (6)  and  DI  (7)  are  initially  zero,  the  trajectory  always  begins  in  the  X-Y  plane.  Only  if  a  crosswind  is 
specified,  will  there  be  crosswind  components  of  velocity  and  displacement.  Throughout  the  Runge-Kutta 
procedure,  calculations  from  one  point  to  the  next  will  be  made  in  terms  of  X,  Y,  and  Z  velocity  and 
displacement  components.  To  calculate  the  total  velocity  and  displacement  we  use  the  square  root  of  the  sum 
of  squares  of  the  component  values.  Throughout  the  FRAGH  AZ  program  there  is  no  use  of  matrix  algebra;  all 
calculations  with  regards  to  vectors  are  made  with  straightforward  trigonometric  procedures.  The  signs  for 
component  velocities  and  displacements  are  as  follows.  A.ltitude  (Y)  component  velocity  (DI  (4))  is  positive 
when  the  trajectory  is  ascending  and  negative  when  the  trajectory  is  descending.  Range  (X)  and  Cross-Range 
(Z)  velocities  (DI  (2)  and  DI  (6))  are  always  positive.  Altitude  (Y)  displacement  (DI  (5))  is  positive  above 
ground  level  and  negative  below  ground  level.  Range  (X)  and  Cross  Range  (Z)  displacements  (DI  (3)  and  DI 
(7))  are  always  positive.  DI  (4)  and  DI  (5)  will  be  used  repeatedly  to  sense  trajectory  conditions.  At  this  point 
we  have  completed  the  entry  of  all  conditions  necessary  for  the  calculation  of  the  first  fragment  trajectory. 
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BLOCK-11.  BEGIN  TRAJECTORY  CALCULATIONS 
Line  437 


We  compute  the  magnitude  of  the  initial  fragment  velocity  vector  here,  'fhis  is  the  point  we  will  return 
to  after  completing  the  integration  to  the  next  point.  We  always  start  an  increment  knowing  the  velocity  and 
displacement  at  the  end  of  the  previous  increment.  The  velocity,  modified  by  wind  if  applicable,  is  necessary 
for  defining  the  component  drag  accelerations. 

Line  438 

This  is  the  standard  time  increment  of  integration  using  the  displacement  increment  obtained 
previously  from  BLOCK-26.  This  time  increment  may  be  replaced  in  BLOCK-12  depending  on  conditions. 


Lines  439-440 


Here  we  compute  the  last  elevation  angle  ( l.E);  that  is,  the  one  existing  at  the  end  of  the  last  increment 
of  integration.  In  line  440  we  prevent  this  angle  from  becoming  zero  because  of  subsequent  sine  and  tangent 
operations.  This  angle  is  used  in  linear  predictions  to  control  the  trajectory  in  or  near  the  pie-shaped  Hazard 
Volume.  Note  how  the  X,  Y,  and  Z  components  of  velocity  are  used  to  calculate  (LEI,  and  that  (LE)  is  an 
absolute  value.  The  angle  (LE)  will  be  used  in  calculations  which  require  a  positive  sign  for  the  elevation 
angle  (E).  The  elevation  angle  (E)  is  positive  for  an  ascending  trajectory  and  negative  for  a  descending 
trajectory. 


BLOCK-12.  COMPUTE  SPECIAL  TIME  INCREMENT  IF  CONDITIONS  DICTATE 
Lines  44o-459 


Here  we  compute  special  time  steps  when  we  are  near  or  within  the  Hazard  Volume.  These 
calculations  pertain  only  to  a  descending  trajectory  (Dl  (4)  <0).  Ascending  trajectories  within  the  Hazard 
Volume  w'ill  be  addressed  in  BLOCK- 17.  In  either  case,  we  are  determining  an  accurate  range  at  which  the 
trajectory  pierces  the  top  of  the  Hazard  Volume  or  the  ground  plane  as  shown  by  the  large  dots  in  Figure  3, 
This  is  done  so  that  we  can  accurately  assign  hazards  to  the  proper  100-ft  increment  of  the  Hazard  Volume. 

We  will  start  with  line  452  where  the  altitude  at  the  beginning  of  the  current  integration  step  is  above 
the  Hazard  Volume.  When  the  altitude  (DI  (5))  is  less  than  XD+  12  then  we  make  a  linear  prediction  from 
the  current  point  to  the  top  of  the  Hazard  Volume  and  compute  a  time  increment  which  will  bring  us  near,  but 
above  the  top  of  the  Hazard  Volume.  Lines  455  and  456  checks  to  see  if  the  linear  prediction  is  less  than  the 
height  of  the  Hazard  Volume  (HM)  and  if  so,  computes  a  new  time  increment  to  bring  us  closer  to  the  top  of 
the  Hazard  Volume.  The  new  tim.e  increment  supercedes  the  previous  one.  After  completing  this  integration 
step  we  are  very  close  to  the  top  of  the  Hazard  Volume  and  the  new  linear  prediction  in  lines  457-458  will  be 
nearly  coincident  with  the  curved  trajectory.  We  then  compute  a  time  increment  which  will  bring  us  just 
below  the  top  of  the  Hazard  Volume,  a  matter  of  a  fraction  of  an  inch.  We  add  two  microseconds  to  this  time 
increment  to  prevent  having  to  make  more  than  one  step  to  place  us  just  below  the  top  of  the  Hazard  Volume. 
The  range  at  this  point  will  tell  us  what  100-ft  increment  the  trajectory  first  encounters  so  that  we  may 
properly  designate  hazard  statistics. 

Lines  446-451  do  the  same  thing  by  taking  the  trajectory  from  just  below  the  top  of  the  Hazard  Volume 
to  a  point  just  below  ground;  again  a  matter  of  a  fraction  of  an  inch.  This  will  accurately  define  the  range  at 
which  the  fragment  .strikes  the  ground  and  either  stops  or  ricochets.  All  of  the  calculated  special  time 
increments  have  been  derived  empirically  by  running  thousands  of  trajectories. 
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Line  460 

A  special  time  delay  (0.1  s)  is  assigned  for  high  elevation  trajectories  to  permit  stable  operation  of  the 
Runge-Kutta  routine  going  around  a  tight  turn  at  the  top  of  the  trajectory  at  very  low  velocities. 

Line  461 


A  special  time  increment  (0.08  s)  is  assigned  after  two  or  more  ricochets  have  occurred  and  the 
fragment  velocity  has  fallen  below  150  ft/s.  Again,  this  is  to  insure  Runge-Kutta  stability  and  accuracy. 

Line  462 


Finally,  time  of  flight  is  accumulated  in  DI  (1).  Note  that  as  we  go  down  the  list  of  special  time 
increments,  each  one  calculated  will  supercede  all  previously  calculated  time  increments.  If  none  of  the 
special  time  increments  apply,  then  the  standard  time  increment  in  line  438  applies. 


BLOCK-13.  BEGIN  RUNGE-KUTTA  ROUTINE  AND  CALCULATE  WIND  EFFECTS 

This  begins  the  outer  loop  for  the  trajectory  calculations.  The  constant  (KM)  is  set  (lines  468-472)  and 
will  be  used  in  the  calculation  of  the  velocities  in  each  component  direction  (line  535)  for  the  fourth-order 
Runge-Kutta  routine.  In  the  outer  loop,  fragment  velocity,  air  density,  and  drag  coefficient  must  be  updated 
before  calculating  the  constants  (XK  (1,  J))  in  line  530.  n. 

Lines  473-491 


Here  we  ha%'e  three  alternatives  depending  on  the  wind  conditions.  First  (lines  473-476)  we  have  the 
case  for  no  wind  and  we  need  only  make  calculations  for  the  X-Y  plane.  We  calculate  (VP),  the  total  velocity  of 
the  fragment  which  will  be  used  in  calculating  acceleration  in  line  515.  The  angles  (AY)  and  (AX)  will  be  used 
to  calculate  the  X  and  Y  components  of  acceleration  in  lines  516  and  518.  The  second  alternati%'e  is  given  in 
lines  477  to  482.  Here  we  have  a  tail  wind  (DW  =  0)  and  we  must  include  the  wind  velocity  in  the  X-Y  plane. 
Wind  is  in  a  horizontal  plane  and  we  need  only  be  concerned  with  the  X  (Range)  component.  Again  we 
compute  (VP),  (AY),  and  (AX)  for  use  in  the  acceleration  equations.  The  third  alternative  includes  a  cross- 
wind  and  we  address  this  factor  in  lines  484-490.  Since  wind  is  in  a  horizontal  plane  we  need  only  be  concerned 
with  adding  its  effects  in  the  X  and  Z  directions.  Again  we  compute  (VP),  (AY),  (AX),  and  also  (AZ)  for  use  in 
the  acceleration  equations.  Remember  that  all  calculations  will  be  made  in  the  component  directions.  Total 
velocity  and  displacement  can  be  calculated  at  any  time  by  using  the  square  root  of  the  sum  of  squares  of  the 
components. 
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BLOCK-14.  CALCULATE  AIK  DENSITY,  MACH  NUMBER,  AND  CD 
lines  496-510 


This  part  of  the  outer  loop  updates  air  density  and  the  drag  coefficient  in  the  calculation  of  the  four 
ilunge-Kutta  constants. 

Air  density  is  calculated  in  line  496  as  a  function  of  altitude  {Dl  (51).  Actually,  it  is  one-half  the  air 
.iensity.  The  factor  one-half  is  incorporated  here  rather  than  in  the  acceleration  equation  in  line  515.  The 
■quation  for  air  density  is  taken  from  a  standard  text.''^  Note  that  we  add  (DI  (41  *  DLT/2)  to  the  altitude.  We 
io  this  because  in  the  Runge-Kutta  routine  we  calculate  the  four  constants  of  integration  only  from 
iccelcration  to  velocity.  V/e  use  three  of  these  constants  to  calculate  the  component  displacements  directly. 
,\s  such  we  do  not  have  an  updated  altitude  for  calculating  successive  Runge-Kutta  constants.  We  therefore 
jut  the  altitude  approximately  between  the  starting  and  ending  of  the  trajectory  integration  increment. 

The  Mach  number  equation  (line  497)  is  taken  from  the  text  mentioned  above  and  we  add  the  same 
.-mall  altitude  correction  as  we  did  for  air  density. 

In  lines  498-510  we  calculate  the  drag  coefficient  as  a  function  of  Mach  Number  using  the  Cq  points 
■  131,  D2,  D3,  and  134)  calculated  in  B[,OCK-9.  These  equations  represent  straight  line  approximations  to  the 
drag  curve  shown  in  h'igure  12.  The  drag  coefficient  is  used  in  the  acceleration  equation  in  line  515, 

X 

BLOCK-15.  CALCULATE  VELOCITIES  AND  ACCELERATIONS 
Lines  515-52.3 

Line  515  is  the  total  acceleration  equation.  It  is  nothing  more  than  an  application  of  the  .Newtonian 
equation;  F  =  ma.  In  lines  516,  518,  and  521  if  applicable,  we  designate  the  X.  Y  and  if  applicable,  the  Z 
components  of  acceleration.  Note  the  signs  associated  with  these  components  and  the  fact  that  the 
acceleration  due  to  gravity  (G)  is  placed  in  the  Y  component  of  acceleration.  The  variables  DO  (3),  DO  (5), 
and  DO  (7)  are  not  used  in  the  Runge-Kutta  calculations  which  follow  but  have  been  left  here  should  the  user 
svant  to  make  the  integration  from  velocity  to  displacement  by  calculating  an  additional  four  Runge-Kutta 
constants. 


BLOCK-16.  BASIC  RUNGE-KUTTA  CALCULATIONS 
Lines  528-537 

There  are  many  ways  of  coding  a  fourth-order  Runge-Kutta  procedure.  The  procedure  here  is  described 
in  a  Numerical  Analysis  text. 9  This  BLOCK  constitutes  the  inner  loop  of  the  procedure.  Note  that  we 
calculate  only  four  constants  XK  (1,J),  XK  (2,  J),  XK  (3,  J),  and  XK  (4,  J),  where  the  J’s  are  2,  4,  and  6 
representing  the  X,Y,  and  Z  component  directions.  Component  velocities  at  the  end  of  the  integration  step 
are  calculated  in  line  532.  Component  displacements  are  calculated  in  line  533  using  the  first  three  of  the 
four  Runge-Kutta  constants.  Using  this  technique,  wm  can  cut  the  running  time  substantially.  The  inner 
Runge-Kutta  loop  ends  in  line  537,  the  outer  loop  of  the  Runge-Kutta  routine  ends  in  line  538. 


‘^Morrison,  R.  B.  and  Ingle,  M.  J.,  Design  Data  for  Aeronautics  and  Astronautics,  John  Wiley  and  Sons, 
Library  of  Congress  Catalog  N  umber  61-17267,  p.  4,  1962. 

9Scarborough,  J.B.  Phd.,  N americal  Mathematical  A.nalysis,  Sixth  Edition,  The  Johns  Hopkins  Press,  p,  361, 
1966, 
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BLOCK-17.  CHECK  LOCATION  OF  FRAGMENT  AND  MAKE  HAZARD 
VOLUME  CALCULATIONS  IF  APPLICABLE 

At  this  point,  we  have  completed  an  integration  increment  and  have  the  component  velocities  and 
displacements  existing  at  the  end  of  the  increment.  These  values  (DI  (2)  to  DI  (7))  were  calculated  in  lines  532 
and  533. 

Lines  544-545 


Here  we  compute  the  designator  for  the  100-ft  range  increment.  For  example,  if  the  range  were  738  ft 
then  (R)  would  equal  eight  designating  that  the  fragment  was  in  the  700  to  800-ft  range  increment.  Line  545 
puts  the  fragment  in  the  special  range  increment  (MR  4- 1)  if  the  fragment  range  is  beyond  the  specified 
maximum  calculation  range.  This  fact  will  be  shown  in  the  variable  (TJ)  and  will  indicate  in  the  output 
tables  how  many  fragments  exceeded  the  maximum  calculation  range  so  that  we  may  increase  the  maximum 
calculation  range  for  future  runs. 

Lines  546-560 


Here  w'e  determine  whether  the  fragment  has  pierced  the  top  of  the  Hazard  Volume  from  below.  This 
will  have  occurred  only  if  the  unique  combination  of  the  flags  CX  and  C  Y  are  C  Y  =  0  and  CX  =  1 ,  when  we 
reach  the  ELSE  statement  in  line  553.  If  line  553  is  satisfied  then  we  know  that  the  end  point  of  the 
increment  is  above  the  Hazard  Volume  and  the  starting  point  of  the  increment  was  below  the  top  of  the 
Hazard  Volume.  As  such,  we  have  pierced  the  top  of  the  Hazard  Volume  from  below.  CY  is  immediately  set 
to  one  to  prevent  subsequent  consideration  of  piercing  the  top  of  the  Hazard  V^olume  until  a  ricochet  may  have 
occurred.  C  Y  is  set  back  to  zero  in  line  678  after  a  successful  ricochet.  C  Y  is  also  initialized  at  the  start  of  the 
trajectory  in  lines  370  to  374.  In  line  555,  we  calculate  the  difference  in  range  from  the  end  point  of  the 
increment  to  the  point  where  the  trajectory  pierced  the  top  of  the  Hazard  Volume.  A  new  range  increment 
designator  (R)  is  calculated  which  may  be  difTerent  than  the  designator  (R)  calculated  in  line  544.  This 
procedure  is  difTerent  from  the  linear  predictor  procedure  carried  out  in  lines  445  to  459  to  position  increment 
end  points  just  below  the  top  of  the  Hazard  Volume  or  the  ground  plane  for  descending  trajectories.  The 
difference  is  necessitated  by  the  fact  that  as  a  trajectory  progresses  in  the  air  the  path  of  the  trajectory  is 
always  curving  downward;  that  is,  diminishing  elevation  angle.  Although  a  linear  predictor  might  put  the 
end  point  of  the  increment  above  the  top  of  the  Hazard  Volume,  the  actual  trajectory  might  just  skim  the 
underside  of  the  top  of  the  Hazard  Volume. 

If  the  fragment  is  below  the  top  of  the  Hazard  Volume,  then  lines  551  and  552  will  direct  us  to  the 
initializing  block  (lines  562-578)  prior  to  entering  BLOCK-18  where  the  basic  output  statistics  are  calculated. 
If  the  fragment  is  above  the  Hazard  Volume  and  line  553  does  not  apply  then  we  are  directed  to  line  621 
(5170)  to  begin  the  next  increment. 

Lines  562-578 

If  the  100-ft  range  increment  designated  by  (R)  for  this  current  end  point  is  different  from  the  end  point 
designator  for  the  previous  increment  (RL)  then  we  must  initialize  certain  variables  for  BLOCK-18.  If 
R=  RL,  then  our  current  end  point  is  in  the  same  100-ft  increment  as  the  previous  end  point  and  we  proceed 
directly  to  BLOCK-18  to  continue  averaging  hazard  values  for  the  100-ft  range  increment. 
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BLOCK-18.  ROUTINE  FOR  ACCUMULATING  NUMBER  OF  FRAGMENTS, 

DENSITY,  AND  PROBABILITY  OF  NOT  HITTING  THE  TARGET 

There  are  three  levels  of  accumulating,  averaging,  and  ranking  variables  in  the  FRAGHAZ  program. 
First  we  average  for  the  trajectory  integration  end  points  in  the  same  100-ft  Hazard  Volume  increment.  Then 
we  accumulate  for  each  100-ft  increment,  the  contribution  from  each  fragment  in  a  single  replication  or 
treatment.  Finally,  we  average  or  rank  across  all  replications  or  treatments.  Ranking  is  done  in  SORT 
routines  so  that  we  may  specify  minima,  m.axima,  and  percentile  values  for  the  appropriate  variables.  All 
final  output  variables  except  number  of  final  impacts,  and  trajectories  with  range  greater  than  the  maximum 
calculation  range,  are  based  on  the  accumulations  done  here.  The  two  mentioned  variables  are  necessarily 
accumulated  at  the  end  of  each  trajectory.  Common  to  density  and  probability  of  not  hitting  the  target  are 
two  presented  areas  -  total  and  target.  Both  presented  areas  are  in  the  plane  perpendicular  to  the  trajectory. 

The  total  presented  area  (TA)  involves  projecting  the  100-ft  range  increment  volume  containing  the 
current  trajectory  point  into  the  plane  perpendicular  to  the  trajectory  (P'igure  15).  The  top  of  the  increment  is 
projected  using  SIN  (LE).  The  mid-vertical  panel,  rather  than  the  front  vertical  panel,  is  projected  using  COS 
( LE).  The  mid-panel  is  used  to  obtain  a  proper  average.  This  can  be  seen  qualitatively  by  considering  the 
first  increment  (0  to  100  ft)  of  the  pie-shaped  Hazard  Volume.  Assuming  a  horizontal  trajectory,  the  density 
would  be  infinite  if  the  front  vertical  panel  (area  =  0)  were  used.  Likewise,  the  density  would  be  a  maximum 
if  the  rear  vertical  panel  were  used.  It  is  the  mid-vertical  panel  which  produces  the  average  as  the  trajectory 
proceeds  through  the  increment.  The  presented  area  of  the  increment  (TA)  is  thus  the  sum  of  projected  areas 
of  the  top  and  mid-vertical  panels.  It  is  the  same  for  ascending  and  descending  trajectories. 


FIGURE  15.  TOTAL  PRESENTED  AREA 
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The  target  presented  area  is  shown  in  Figure  16,  The  target  face  (HM  x  WM)  is  always  perpendicular 
to  the  plane  of  the  trajectory.  When  the  trajectory  is  descending,  we  project  the  top  and  front  face,  and  the 
sum  is  the  presented  area  of  the  target.  When  the  trajectory  is  ascending,  as  after  a  ricochet,  only  the  front  of 
the  target  is  projected.  The  top  is  masked  by  the  front  face  and  the  bottom  is  in  contact  with  the  ground  plane. 


FIGURE  16.  TARGET  PRESENTED  AREA 


Probability  of  hit  is  based  on  the  Poisson  distribution  which  can  be  stated  as  follows: 


where 

Px  =  Probability  of  exactly  x  successes  (hits) 
e  =  Napierian  base  (2.718...) 

X  =  Expected  number  of  successes  (hits) 
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where 


NX  =  number  of  fragments 
MA  =  target  presented  area 
TA  =  total  presented  area 

The  probability  of  exactly  zero  hits  is; 


Then  the  probability  of  one  or  more  (at  least  one)  hit  is: 


P 


>0 


l_p  =  l-e~^ 

O 


To  accumulate  probability  of  hit  for  two  or  more  trajectories,  the  equation  is: 


P 


H 


From  this  equation  it  should  be  clear  why  we  accumulate  the  probability  of  not  hitting  the  target  as  a 
product. 

Une  584 


Here  we  calculate  the  number  of  fragments  connected  with  the  current  trajectory.  Y2  is  the  fragment 
multiplier  explained  in  Appendix  D.  We  have  previously  (line  244),multiplied  the  fragment  multiplier  by  the 
angular  width  (AS)  of  the  Hazard  Volume.  Here  we  need  only  multiply  by  the  number  of  units  that  were 
specified  in  the  input  to  obtain  the  number  of  fragments  associated  with  the  trajectory. 

Lines  585-586 

We  increment  the  counter  (P)  in  line  585.  This  keeps  track  of  the  number  of  integration  increment  end 
points  in  the  100-ft  increment  being  considered.  If  the  100-fl  increment  designator  (R)  set  in  line  545  or  557 
exceeds  the  maximum  calculation  range  we  do  not  make  any  hazard  calculations. 

Lines  590-591 


Here  we  accumulate  the  total  (hazardous  and  non-hazardous)  average  number  of  fragments  for  the 
100-ft  increment  designated  by  (R).  Note  that  we  accumulate  for  the  first  trajectory  end  point  (P  =  1)  only. 
The  number  of  fragments  is  the  same  throughout  the  100-ft  increment. 

Lines  592-598 


Here  we  calculate  the  absolute  value  of  the  elevation  angle.  We  then  calculate  the  total  presented  area 
(TA)  as  described  in  Figure  15.  The  total  presented  area  is  the  same  for  descending  and  ascending 
trajectories.  We  then  calculate  the  target  presented  area  (MA)  as  described  in  Figure  16.  The  vertical 
velocity  (DI  (4))  is  positive  for  ascending  trajectories  and  negative  for  descending  trajectories. 
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Lines  599-601 


Here  we  accumulate  total  (hazardous  and  non-hazardous  fragments)  density.  Line  599  keeps  a 
running  average  of  the  density  at  each  integration  end  point  with  the  counter  (P).  A  running  average  is  used 
so  we  will  not  have  to  go  back  and  average  after  we  leave  the  100-fl  increment  being  considered.  Density  at 
each  point  is  NX/TA  for  the  (N4)  units  specified.  In  line  60U  we  add  the  current  running  average  to  the 
accumulator  (DT  (R)).  We  divide  the  running  average  density  by  the  number  of  replications  or  treatments 
(NR)  to  average  over  all  replications  or  treatments.  Since  we  are  adding  running  averages,  we  must  subtract 
the  previous  running  average  divided  by  (NR)  using  the  variable  (Si).  The  remaining  variables  are  handled 
in  essentially  the  same  way. 

Lines  602-604 


Here  we  accumulate  the  probability  of  not  hitting  the  target  with  the  total  (hazardous  and  non- 
hazardous)  number  of  fragments.  Note  that  here  we  multiply  the  running  average  of  the  probability  of  not 
hitting  the  target  (XP)  by  the  accumulator  (PT  (R)).  As  such,  we  must  divide  out  the  previous  running 
average  (S2). 

Lines  605-606 


Here  we  check  to  see  if  the  fragments  are  hazardous  by  comparing  the  kinetic  energy  of  the  current 
fragment  with  the  kinetic  energy  criterion.  If  the  fragments  are  not  hazardous  we  set  the  number  of 
fragments  associated  with  the  trajectory  to  zero.  This,  in  effe^,  averages  in  a  zero  for  hazardous  density  and 
a  one  for  hazardous  probability  of  not  hitting  the  target. 

Lines  607-609 

Here  we  accumulate  the  average  number  of  hazardous  fragments  averaged  over  all  replications  or 
treatments.  See  lines  599-604  for  discussion  of  (P)  and  (S)  variables. 

Lines  610-613 


Here  we  accumulate  hazard  density.  In  line  611,  the  accum.ulator  (DH  (R))  is  over  all  replications  or 
treatments.  In  line  612  the  accumulator  (D6H  (T,  R))  is  separate  for  each  replication  or  treatment.  This 
variable  will  be  used  to  calculate  minimum,  maximum,  and  percentile  values  for  hazardous  density.  See 
lines  599-604  for  discussion  of  (P)  and  (S)  variables. 

Lines  614-619 


Here  we  accumulate  probability  of  not  hitting  the  target.  The  running  average  (ZP)  is  for  the  number 
of  units  specified  while  (ZZP)  is  for  a  single  unit.  As  such  PH(R)  is  for  the  number  of  units  specified  while  (PX 
(T,  R))  is  for  a  single  unit.  PX  (T,  R)  will  be  used  to  calculate  minimum,  maximum,  and  percentile  values  for 
probability  of  hit.  See  lines  599-604  for  discussion  of  (P)  and  (S)  variables. 
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Line  620 

The  current  100-ft  increment  designator  (R)  is  set  equal  to  (RL).  If  the  next  integration  increment  end 
point  should  fall  outside  the  current  100-ft  increment,  then  this  will  be  sensed  in  line  562  and  all  the 
applicable  variables  for  this  block  will  be  initialized  once  more  to  make  ready  for  the  new  100-ft  range 
increment. 

Line  621 


If  the  current  altitude  (DI  (5))  of  the  fragment  is  greater  than  zero  (ground  level)  then  we  go  back  to 
line  437  (2140)  and  start  the  next  trajectory  integration  increment.  If  DI  (5)  is  equal  or  less  than  zero  then  we 
have  hit  the  ground  and  we  pass  to  BLOCK-19  where  we  will  consider  ricochet. 


BLOCK-19.  CHECK  FOR  RICOCHET  AND  COMPUTE  NEW  INITIAL 
CONDITIONS  FOR  RICOCHETING  FRAGMENT 

Unes  627-628 

Here  we  compute  the  current  values  of  elevation  angle  and  velocity.  These  are  the  incident  values  for 
possible  ricochet. 

Une629  ^ 


Here  we  terminate  the  trajectory  if  the  number  of  ricochets  is  greater  than  six.  This  is  necessary 
because  under  tail  wind  conditions  and  low  fragment  velocity,  an  endless  loop  can  occur  when  the  velocity 
lost  in  ricochet  is  made  up  by  the  tail  wind. 

Line  630 

Here  we  test  to  see  if  the  incident  angle  is  greater  than  the  critical  angle  and  whether  the  velocity  is 
less  than  20  ft/s.  In  either  case,  the  trajectory  is  terminated.  Note  that  we  use  the  absolute  value  of  the 
elevation  angle  (E)  in  deg  for  the  critical  angle  equation  (see  Appendix  E). 

Line  631 


Again  we  use  the  absolute  value  of  the  elevation  angle  (E)  in  deg  and  give  it  the  name  (E  Y).  All  of  the 
ricochet  equations  use  a  positive  incident  angle  in  deg. 

Lines  632-643 

The  variables  (VQ)  are  the  ratios  of  ricochet  velocity  to  incident  velocity.  The  variables  (EQ)  are  the 
ratios  of  ricochet  angle  to  incident  angle.  All  equations  are  a  function  of  the  incident  angle  (EY)  only.  Each 
set  of  six  equations  correspond  to  the  six  specific  soil  constants  given  in  Appendix  E.  Figures  17  and  18  show 
these  ratios  graphically  as  a  function  of  incident  angle  and  soil  constant. 


[ 
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Lines  644-661 

Since  the  soil  constant  is  seldom  exactly  equal  to  one  of  the  six  specific  soil  constants  in  Appendix  E , 
these  lines  are  used  to  linearly  interpolate  between  the  velocity  and  angle  ratios  given  above.  The  ratios  are 
now  labeled  (QV)  for  velocity  and  (QE)  for  angle. 


Lines  662-664 

These  are  the  velocity  (VA)  and  elevation  angle  (EA)  after  ricochet.  (XE)  is  computed  in  deg  for  a  later 
call  to  the  trajectory  integration  step  subroutine  (BLOCK-26). 


Lines  665-666 

The  trajectory  is  terminated  if  the  ricochet  velocity  is  less  than  20  ft/s.  If  not,  we  increment  the 
rebound  (ricochet)  counter  to  keep  track  of  the  number  of  ricochets  for  the  trajectory.  Generally,  the  number 
of  ricochets  will  not  exceed  four. 
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INCIDENT  ANGLE  (EY)  -  d?;; 

FIGURE  18.  RICOCHET  TO  INCIDENT  ANGLE  RATIOS 


Lines  667-675 

A  ricochet  can  be  looked  at  as  the  start  of  a  new  trajectory  where  the  component  displacements  and 
velocities  must  be  specified.  The  component  displacements  (DI  (3),  DI  (5),  and  DI  (7))  are  the  same  as  before 
ricochet  so  nothing  needs  to  be  done  to  these  variables.  The  component  velocities  (D!  (2),  DI  (4),  and  DI  (6)) 
are  affected  by  ricochet  and  new  values  are  calculated  using  the  new  elevation  angle  (EA)  and  the  new 
velocity  (VA).  The  ricochet  trajectory  is  in  the  same  vertical  plane  as  the  incident  trajectory.  Therefore,  the 
angle  (AQ)  is  the  same  before  and  after  ricochet  as  shown  in  Figure  19.  The  test  in  line  668  is  for  the 
existence  of  a  crosswind  component.  With  a  crosswind  component  we  must  calculate  the  angle  (AQ)  as  shown 
in  Figure  19  before  calculating  DI(2)  and  DI(6). 

Lines  676-679 


If  the  velocity  is  greater  than  20  ft/s  then  we  call  the  trajectory  integration  step  subroutine  just  as  if  we 
were  starting  a  new  trajectory.  The  variable  (CY)  is  set  to  zero  for  the  check  to  see  at  what  range  the 
trajectory  pierces  the  top  of  the  Hazard  Volume  from  below.  This  check  is  accomplished  in  BLOCK-17. 
Finally  we  go  to  2140  (line  437)  to  start  the  next  trajectory  integration  step.  If  the  trajectory  is  terminated 
(no  ricochet  or  velocity  less  than  20  ft^s)  then  we  proceed  to  BLOCK-20. 
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AQ  =  ATAN  (Dl  {2)/DI  (6)) 

AFTER  RICOCHET 

VA  IN  SAME  VERTICAL  PLANE  AS  VR 
AQ  THE  SAME  AS  BEFORE  RICOCHET 
01  (4)  =  VA  *  SIN  (EA) 
mm  =  VA  *  cos  (EA)  *  sin  m 
01  (6)  »  VA  *  COS  (EA)  *  COS  (AQ) 

FIGURE  19.  COMPONENT  VELOCITIES  AFTER  RICOCHET 


BLOCK-20.  COMPUTE  AND  PRINT  INITIAL  AND  FINAL  CONDITIONS  FOR 
CURRENT  FRAGMENT  TRAJECTORY 

Lines  685-687 

Here  we  calculate  distance  (DN),  crossrange  (XR),  and  range  (RN). 

Lines  688-692 


Here  we  accumulate  the  trajectories  with  range  greater  than  the  maximum  calculation  range 
declaration  in  the  input.  The  variable  (TJ)  accumulates  the  trajectories  for  all  replications  or  treatments.  It 
is  not  an  average. 
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Lines  693-694 

(XN  (R))  accumulates  the  number  of  final  impacts  in  each  100-ft  increment  and  averages  over  all 
replications  or  treatments.  ( YN  (T,  R,))  accumulates  the  number  of  final  impacts  for  each  100-ft  increment 
and  each  replication  or  treatment.  These  latter  data  will  be  sorted  such  that  we  can  obtain  the  minimum  and 
maximum  number  of  final  impacts  for  each  100-ft  increment. 

Lines  695-698 

Here  we  calculate  crossangle  (XA),  final  impact  velocity  (VF)  and  final  kinetic  energy  (CKE).  If  the 
final  kinetic  energy  is  above  9999.9,  then  we  will  print  out  9999.9.  This  occurs  when  a  high  velocity  fragment 
fails  to  ricochet  close  in. 

Lines  699-702 

If  the  conditions  are  met  in  line  699,  then  we  print  out  the  initial  and  final  values  for  the  current 
trajectory.  (NP)  is  the  number  of  replications  or  treatments  for  which  we  will  print  out  the  initial  and  final 
conditions  for  all  the  fragments.  This  value  was  selected  in  the  input.  It  is  usually  wise  to  print  out  one  or 
two  replications  or  treatments,  for  these  data  serve  as  a  spot  check  to  assure  us  that  the  program  is  running  in 
the  manner  intended.  For  example,  if  we  were  studying  the  effects  of  reducing  the  kinetic  energy  criterion 
from  58  ft-lbs  to  10  ft-lbs  using  the  MONTE  CARLO  option,  we  would  want  exactly  the  same  trajectories  for 
both.  We  would  use  the  same  random  number  seed  for  both  and  we  could  check  to  see  if  we  were  getting  the 
same  trajectories  by  examining  the  trajectory  tables.  Line  702,  marjced  3450,  sends  us  back  to  line  358  to 
start  the  next  trajectory.  Explanations  of  the  table  headings  for  the  initial  and  final  trajectory  conditions  are 
given  in  Appendix  H  -  TEST  CASES. 

Lines  703-706 

Here,  at  the  end  of  a  replication  or  treatment,  we  accumulate  the  total  (hazardous  and  nonhazardous 
fragments)  average  probability  of  hit  and  the  average  hazard  probability  of  hit.  These  variables  are  averaged 
over  all  replications  or  treatments  (NR).  (PT  (R))  and  (PH  (R)),  the  probabilities  of  not  hitting  the  target  for 
the  number  of  units  specified  (N4),  will  be  set  back  to  one  in  lines  351  and  352  at  the  beginning  of  the  next 
replication  or  treatment. 

Lines  707-711 

In  line  707  we  use  a  printer  command  to  change  back  to  standard  character  size  to  print  the  replication 
or  treatment  number,  the  soil  constant,  altitude,  and  wind  speed  for  the  next  replication  or  treatment.  If  we 
had  chosen  the  MONTE  CARLO  option,  line  709  returns  to  line  297  (1160)  for  the  next  replication.  If  we  had 
chosen  the  FULL  FACTORIAL  option,  line  711  returns  to  line  320  (1169)  for  the  next  treatment. 
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BLOCK-21.  SORT  FOR  MAXIMA,  MINIMA  AND  PERCENTILES 

At  this  point,  all  trajectories  and  replications  or  treatments  have  been  completed.  We  are  now  ready  to 
begin  work  on  the  output  variables.  First,  it  is  necessary  to  sort  three  variables,  each  having  two  dimensions 
(T)  and  (R);  that  is,  across  all  100-ft  increments  for  each  replication  or  treatment.  The  three  variables  and 
their  associated  sub-blocks  are: 


Sub-Block 

Variable 

Description 

21A 

YN 

Number  of  final  impacts 

21B 

D6H 

Hazardous  density 

21C 

PX 

Hazardous  probability  of  not 
hitting  the  target 

Sorting  is  required  to  obtain  minimum,  maximum,  and  percentile  values  for  output  variables. 

BLOCK-21A.  MAXIMUM  AND  MINIMUM  NUMBER  OF  FINAL  IMPACTS 

Here  we  sort  the  number  of  final  impacts  from  smallest  to  largest  across  the  (NR)  replications  or 
treatments  for  each  lOO-ft  increment  of  the  Hazard  Volume.  Both  hazardous  and  nonhazardous  fragments 
are  included. 

Lines  718-722 


The  loop  for  (R)  is  begun  here  and  minimum  and  maximum  values  are  set  if  there  is  only  one 
replication  or  treatment. 

Lines  723-732 

The  main  sort  loop  is  executed  here  and  minimum  and  maximum  values  for  each  100-ft  increment  are 
established  in  lines  731  and  732. 


BLOCK-21B.  MAXIMUM,  MINIMUM,  AND  PERCENTILE  HAZARD  DENSITY 
Lines  738-743 


The  loop  for  (R)  is  begun  here  and  minimum,  maximum,  and  percentile  values  are  established  if  there 
is  only  one  replication  or  treatment. 

Lines  745-752 

The  sort  loop  is  executed  here,  rearranging  the  hazard  densities  in  ascending  order  (minimum  to 
maximum)  for  each  100-ft  increment  across  replications  or  treatments. 
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Lines  753-763 


The  minimum  and  maximum  hazard  densities  are  calculated  in  lines  753  and  754  for  each  100-ft 
increment.  In  lines  755  to  760  we  calculate  the  element  number  in  the  sorted  lists  for  each  100-ft  increment 
corresponding  to  the  50th  percentile  (P5)  and  the  percentile  designated  by  the  user  in  the  input  (P9).  For 
example,  if  we  had  60  replications  or  treatments,  then  the  50th  percentile  element  would  be  the  30th  up  from 
the  minimum.  If  we  had  specified  a  90th  percentile  in  the  input,  then  the  element  (P9)  would  be  the  54th  up 
from  the  minimum  in  the  sorted  list.  This  element  would  have  6  elements  (10%)  above  it  which  is  consistent 
with  the  definition  of  a  90th  percentile.  Lines  757  and  758  round  up  to  the  next  most  hazardous  element  if  P5 
or  P9  (lines  755  and  756)  is  not  an  integer.  If  P5  and  P9  are  less  than  one,  then  lines  759  and  760  define  the 
element  for  both  percentiles  as  the  first  or  minimum  value  in  the  sorted  list.  Finally,  in  lines  761  and  762, 
both  percentile  hazard  densities  are  calculated  for  each  100-ft  range  increment. 

BLOCK-21C.  SORT  PROBABILITY  OF  NOT  HITTING  THE  TARGET 
Lines  768-769 

The  main  loop  for  (R)  begins  here.  When  there  is  only  one  replication  or  treatment,  we  skip  the  sort 
loop  entirely. 

Lines  770-777 

The  main  loop  is  executed  here  using  the  probability  of  not  hitting  the  target  with  a  single  unit.  The 
probabilities  are  sorted  from  smallest  to  largest.  Note  that  the  probabilities  of  hit  (1-PX)  are  effectively 
sorted  from  largest  to  smallest.  The  minimum,  maximum,  and  percentile  values  will  be  calculated  in 
BLOCK-22  (lines  809  to  824). 


BLOCK-22.  COMPUTE  AND  PRINT  OUTPUT  DENSITY,  P-HIT,  AND  NUMBER 
OF  FINAL  IMPACTS  FOR  GIVEN  DISTANCE  INCREMENT  AND  NUMBER  OF  UNITS 

The  final  output  consists  of  three  tables  for  each  of  the  100, 200,  300  and  400-ft  increments,  a  total  of  12 
tables  (See  Appendix  H-TEST  CASES).  We  shall  refer  to  the  three  tables  as  Table  1,  Table  2,  and  Table  3. 
Table  1  is  printed  out  in  BLOCK-22,  Table  2  in  BLOCK-23,  and  Table  3  in  BLOCK-24,  In  this  block, 
BLOCK-22,  the  output  variables  for  BLOCKS  22  and  23  will  be  calculated.  Outputs  for  density  and 
probability  of  hit  are  weighted  averages.  Weighting  is  proportional  to  the  size  of  each  100-ft  increment  as 
described  in  Appendix  G. 

Rather  than  describing  each  output  variable,  which  is  already  done  in  the  Glossary  (Appendix  C)  it  is 
considered  more  useful  for  the  user  to  trace  each  output  variable  from  start  of  accumulation  to  output.  In 
Table  3  (Variable  Traces),  we  identify  each  output  variable  for  output  Table  1,  Table  2,  and  Table  3.  The 
progress  of  a  trace  identifies  the  variable  name  and,  in  parenthesis,  the  line  number  where  the  calculation  is 
made.  Variables  in  each  of  the  three  output  tables  (see  Appendix  H)  are  addressed  left  to  right. 
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TABLE  3.  VARIABLE  TRACES  -  ACCUMULATION  TO  OUTPUT 
OUTPUT  TABLE  1  (BLOCK-22)  (FOR  THE  NU  MBER  OF  UNITS  SPECIFIED) 


Variable 


Trace 


1 .  Average  Total  Number  of  F ragments 

2.  Average  Total  Density 

3.  Average  Total  Probability  of  Hit 

4.  Average  number  of  Hazardous 
Fragments 

5.  Average  Hazard  Density 

6.  Average  Hazard  Probability  of  Hit 

7.  Minimum  number  of  Final  Impacts 

8.  Average  Number  of  Final  Impacts 

9.  Maximum  Number  of  Final  Impacts 

10.  Number  of  Trajectories  with  Range 

Greater  than  MRA 


•  NT(R)  (591)  -TN(R)  (794)  -  TN(R)  (842) 

DT(R)  (600)  -  TD(R)  (795)  -  TD(R)  (842) 

PT(R)  (603)  -  TP(R)  (704)  -  FTP  (R)  (796)  -  FTP  (R)  (842) 
NH(R)  (608)  -  HN(R)  (797)  -  HN(R)  (842) 

DH(R)  (61 1)  -  HD(R)  (798)  -  HD(R)  (842) 

PH(R)  (616)  -  HP(R)  (705)  -  FHP(R)  (807)  -  FHP(R)  (842) 
YN(T,  R)  (694)  -  YN(J,  R)  (727)  -  NSMIN(R)  (731)  - 
T8MIN(R)  (826)  -  T8MIN(R)  (842) 

XN(R)  (693)  -  TKR)  (825)  -  TI(R)  (843) 

YN(T,  R)  (694'  -  YN(J,  R)  1727)  -  N9MAX(R)  (732)  - 
T9MAX(R)  (827)  -  T9MAX(R)  (843) 

T.J(691)-TJ(845) 


OUTPUT  TABLE  2  (BLOCK-23)  (FOR  THE  NUMBER  OF  UNITS  SPECIFIED) 


Variable 


Trace 


11.  Maximum  Hazard  Density 

12.  Percentile  Hazard  Density 

13.  50th  Percentile  Hazard  Density 

14.  Minimum  Hazard  Density 

15.  Maximum  Hazard  Probability  of  Hit 

16.  Percentile  Hazard  Probability  of  Hit 

17.  50th  Percentile  Hazard  Probability  of 

Hit 

18.  Minimum  Hazard  Probability  of  Hit 


D6H(T,  R)  (612)  -  D6H(J,  R)((749)  -  D8MAX(R)  (741, 

754)  -  X8DMAX(R)  (804)  -  X8DMAX(R)  (859) 

D6H(T,  R)  (612)  -  D6H(J,  R)  (749)  -  D9(R)  (743,  762)  - 
X9D(R)  (806)  -  X9D(R)  (859) 

D6H(T,  R)  (612)  -  D6H(J,  R)  (749)  -  D5(R)  (742, 761)  - 
X5D(R)  (805)  -  X5D(R)  (8591 

D6H(T,  R)  (612)  -  D6H(J,  R; :  ”49)  -  D7MIN(R)  (740,  753)  - 
-  X7DMIN(R)  (803)  -  X7DMIN(R)  (859) 

PX(T,  R)  (618)  -  PX(J,  R)  (774)  -  X8PMAX(R)  (810)  - 
X8PMAX(R)  (859) 

PX(T,  R)  (618)  -  PX(J,  R)  (774)  -  X9P(R)  (824)  -  X9P(R) 
(860) 

PX(T,  R)  (618)  -  PX(J,  R)  (774)  -  X5P(R)  (823)  -  X5P(R) 
(860) 

PX(T,  R)  (618)  -  PX(J,  R)  (774)  -  X7PMIN(R)  (809)  - 
X7PMIN(R)  (860) 
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TABLE  3.  VARIABLE  TRACES  -  ACCUMULATION  TO  OUTPUT  (CONTINUED) 

OUTPUT  TABLE  3  (BLOCK-24)  NUMBER  OF  UNITS  TO  JUST  EXCEED  HAZARD 

DENSITY  CRITERION  (DC) 

Variable  Trace 

19.  Minimum  Number  of  Units  D6H(T,  R)  (612)  -  D6H(J,  R)  (749) - 

D8MAX(R)  (741, 754)  -  X8DMAX(R)  (804)  - 
Y7DMIN(R)  (873,  875)  -  Y7DMIN(R)  (944) 

20.  Percentile  Number  of  Units  D6H(T,  R)  (612)  -  D6H(J,  R)  (749)  -  D9(R) 

(743, 762)  -  X9D(R)  (806)  -  Y9D(R) 

(878,880)  -  Y9D(R)  (944) 

21.  50th  Percentile  Number  of  Units  D6H(T,  R)  (612)  -  D6H(J,  R)  (749)  -  D5(R) 

(742, 761)  -  X5D(R)  (805)  -  Y5D(R)  (883, 

885)  -  Y5D(R)  (944) 

22.  Maximum  Number  of  Units  D6H(T,  R)  (612)  -  D6H(J,  R)  (749)  - 

D7MIN(R)  (740, 753)  -  X7DMIN(R)  (803)  - 
Y8DMAX(R)  (888, 890)  -  Y8DMAX(R)  (944) 


NUMBER  OF  UNITS  TO  JUST  EXCEED  HAZARD  PROBABILITY  OF  HIT 

CRITERION  (PC)  , 

Variable  Trace 

23.  Minimum  Number  of  Units  PX(T,  R)  (618)  -  PX(J,  R)  (774) - 

Z8PMAX(R)  (903)  -  NP2(1,  R)  (908, 910, 

912)  -NP2(1,R)  (944) 

24.  Percentile  Number  of  Units  PX(T,  R)  (618)  -  PX(J,  R)  (774)  -  Z9P(R) 

(904)  -  NP2(2,  R)  (916,  918,  920)  -  NP2(2,  R) 
(945) 

25.  50th  Percentile  Number  of  Units  PX(T,  R)  (618)  -  PX(J,  R)  (774)  --  Z5P(R) 

(901)  -  NP2(3,  R)  (924, 926,  928)  -  NP2(3,  R) 
(945) 

26.  Maximum  Number  of  Units  PX(T,  R)  (618)  -  PX(J,  R)  (774)  -  Z7PMIN(R) 

(902)  -  NP2(4,  R)  (932, 934,  936)  -  NP2(4,  R) 
(945) 

Notes: 

Total  -  Inclades  h:;zan'oi'.s  and  nonhazardous  fragments 
Hazard  -  Includes  hazardous  fragments  only 
MRA  -  Maximum  Calculation  Range 
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Generally,  the  array  variables  in  Table  3  (Variable  Traces)  are  identified  by  one  or  two  code  characters 
in  the  variable  name.  Identification  is  as  follows: 


1  Character 

Variable  Identification 

N 

Number  of  fragments,  sometimes  a 

T  is  used 

T 

Usually  identifies  a  variable 
including  Total  (hazardous  and 
nonhazardous)  fragments 

H 

Identifies  variables  with  hazardous 
fragments  only 

D 

A  fragment  density  variable 

P 

A  probability  of  hit  or  not-hit 
variable 

5 

A  50th  percentile  value 

7 

A  minimum  value  for  density  or 
probability  of  hit 

8 

A  maximum  value  for  density  or 
probability  of  hit 

9 

A  value  for  the  percentile  specified 
in  the  input 

(H,T) 

A  variable  without  an  H  and  T  will 
usually  contain  hazardous 
fragments  only 

Line  787 


This  starts  the  output  table  loop.  The  loop  runs  from  here  to  line  961  and  covers  BLOCKS-22, 23,  and 
24.  The  first  full  loop  will  print  out  Tables  1,  2,  and  3  for  100-ft  increments  of  the  Hazard  Volume.  The 
appropriate  variables  are  zeroed  in  lines  952-958,  and  then  the  next  pass  begins  for  printing  out  Tables  1, 2, 
and  3  for  200-ft  increments  of  the  Hazard  Volume.  This  continues  until  Tables  1, 2,  and  3  are  printed  out  for 
400-ft  increments  of  the  Hazard  Volume. 

If  the  user  wants  only  the  basic  100-ft  increment  data,  then  he  should  change  400  to  100  in  line  787. 
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Lines  789-793 


Those  lines  control  the  variables  for  computing  running  or  cumulative  weighted  averages.  These 
averages  apply  only  to  density  and  probability  of  hit.  See  Appendix  G  for  details  on  weighting  factors. 

Lines  794.  797. 825. 826, 827 

These  lines  apply  to  number  of  fragments  and  number  of  final  impacts  as  a  function  of  range  (R)  and 
require  no  weighting  factors;  they  are  accumulated  by  simple  addition. 

Lines  795-796. 798-810 

These  lines  compute  running  or  cumulative  weighted  averages  for  density  and  probability  of  hit.  An 
example  may  help  to  clarify  the  procedures.  Suppose  we  were  calculating  a  300-ft  increment  from  three 
100-ft  increments,  1200-1300,  1300-1400,  and  1400-1500.  Weighting  factors  we  call  (KW  -  See  Appendix  G) 
and  the  cumulative  sum  of  the  weighting  factors  we  call  (SUM).  The  running  weighted  average  we  will  call 
(RWAVG).  Given  the  following  table  for  density  or  probability  of  hit. 


Range 

Density  or  PH 
(DPH) 

KW 

SUM 

RWAVG 

1200-1300 

0.6 

12.5 

12.5 

0.6 

1300-1400 

0.3 

13.5 

26.0 

0.444 

1400-1500 

0.2 

14.5 

40.5 

0.357 

The  basic  formula  is: 


RWAVG  =  {RWAVG  *  {SUM~KW)  +  DPH*  {KW))I SUM 

On  the  first  pass  through  the  loop  we  would  have 

RWAVG  =  ((RWAV^G)  (12.5 -12.5)  -1-  0.6  (12,5))/12.5  =  0.6 

Note  that  at  the  beginning  of  every  averaging  sequence,  the  term  (SUM-KW)  is  always  zero  since  SUM 
and  KW  always  start  out  with  the  same  value.  This  effectively  initializes  RWAVG  to  zero  regardless  of  its 
value  from  the  previous  sequence.  SUM  is  zeroed  in  line  829. 

If  we  were  interested  in  only  100-ft  increments  we  would  stop  here  and  proceed  to  the  next  100-ft 
increment.  Going  on,  the  second  pass  produces; 

RWAVG  =  (0.6(26,0-13.5)  +  0.3  (13.5))/26.0  =  0.444 

If  we  were  dealing  with  200-ft  increments  we  would  stop  here  and  proceed  to  the  next  200-fl  increment. 
Going  on,  the  third  pass  produces: 

RWAVG  =  (0.444  (40.5  - 14.5)  +  0.2  (14.5))/40.5  =  0.357 

If  we  were  dealing  with  300-ft  increments,  as  we  are  in  the  example,  we  would  stop  here  and  proceed  to 
the  next  300-ft  increment. 
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Lines  818-824 


Here  we  designate  elements  in  the  sorted  lists  for  the  50th  percentile  and  the  percentile  specified  in  the 
input.  Since  we  are  dealing  with  the  sorted  lists  of  probability  of  not  hitting  the  target,  the  procedure  is 
somewhat  different  from  what  it  was  for  density  in  lines  755-762.  What  we  ultimately  want  for  calculating 
number  of  units  required  to  just  exceed  the  probability  of  hit  criterion  (PC),  is  the  probability  of  hit  for  a 
single  unit  or  interaction  area.  For  example,  if  we  wanted  the  90th  percentile  value  and  we  had  only  10 
replications,  the  element  selected  would  be  2  from  line  819.  This  would  be  the  second  element  counted  up 
from  the  minimum  in  the  sorted  (minimum  to  maximum)  list  of  probabilities  of  not  hitting  the  target.  Since 
P(Hit)  =  1  -  P(NotHit),  this  element  corresponds  to  the  9th  element  up  from  the  minimum  of  the  effectively 
sorted  list  of  probabilities  of  hitting  the  target  with  a  single  unit.  Line  818  designates  the  element  for  the 
50th  percentile.  Lines  820-822  calculate  the  values  of  P5  and  P9  for  special  cases.  Finally,  lines  823  and  824 
calculate  the  50th  and  specified  percentiles  for  probability  of  hitting  the  target  with  a  single  unit  for  each 
100-ft  increment  of  range.  Note  that  P5  and  P9  are  the  same  variables  used  for  density  (lines  755-762)  since 
there  is  no  conflict  between  the  two  routines.  As  before,  if  the  element  calculated  is  not  an  integer  we  always 
move  to  the  more  hazardous  element  in  the  sorted  list  using  the  equations  in  lines  820  and  821. 

Lines  833-846 


These  lines  print  out  Table  1  for  1 00, 200, 300,  and  400  ft  increments  in  four  repeated  passes  of  the 
overall  loop.  See  Appendix  H  for  examples  of  output  Tables  1,2,  and  3. 


BLOCK-23.  PRINT  HAZARD  DENSITY  AND  PROBABILITY  OF  HIT  FOR 
NUMBER  OF  UNITS  SELECTED 

Lines  852-861 


All  values  for  this  printout  have  already  been  calculated  in  BLOCK-22.  Like  Table  1  in  BLOCK-22, 
Table  2  here  reflects  the  number  of  units  selected  in  the  input  (N4). 


BLOCK-24.  COMPUTE  AND  PRINT  NUMBER  OF  UNITS  REQUIRED 
TO  JUST  EXCEED  HAZARD  DENSITY  AND  P-HIT  CRITERIA 

Lines  871-894 


Here  we  calculate  the  minimum,  specified  percentile,  50th  percentile  and  maximum  number  of  units 
required  to  just  exceed  the  density  criterion  (DC).  We  use  the  densities  previously  calculated  for  the  number 
of  interaction  areas  or  units  (N4)  selected  in  the  input.  This  is  a  linear  calculation  and  amounts  to; 


No.  of  Units  Required  = 


(DO(N4) 

Densityj^^ 


-I-  0.01 
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lanes  895-905 


Here  we  first  compute  50th  percentile,  minimum,  maximum  and  specified  percentile  running  or 
cumulative  weighted  averages  for  the  probability  of  hit  with  a  single  unit  in  lines  901-904.  Then  we  make 
use  of  the  following  equation: 


PC  =  1-(1  -PH^f  +  0.01 

where 


PC  =  Probability  of  hit  criterion. 

PHi  =  Probability  of  hit  for  a  single  unit. 
NP  =  Number  of  units  required. 


Then 


NP  = 


In  (1-PQ 
/n(l-PHj) 


-I-  0.01 


where  0.01  is  added  to  made  sure  we  just  exceed  the  probability  of  hit  criterion  and  never  get  a  zero. 


Note  that  we  print  out  four  values  of  density  and  four  values  for  probability  of  hit;  minimum,  specified 
percentile,  50th  percentile,  and  maximum.  The  values  in  this  table.  Table  3,  correlate  with  the  values  in 
Table  2.  Any  row  and  column  element  in  Table  3  can  be  computed  from  the  column  directly  above  in  Table  2 
and  using  the  same  row  element.  For  density  use  the  equation  above  for  lines  871-894.  This  correlation 
should  be  exact.  For  probability  of  hit,  the  calculation  will  only  be  an  approximation.  From  Table  2  we  must 
first  calculate  the  probability  of  hit  for  a  single  unit: 


where 


PHn4  =  Probability  of  hit  for  the  selected  number  of  units  in  Table  2. 

PHi  =  Probability  of  hit  for  a  single  unit. 

N4  =  Number  of  units  selected  in  the  input  upon  which  Table  2  is  based. 
Solving  for  PHi  we  have 


;V4 


1  —e 


.V4 


Then  from  above 


NP  = 


In  {I -PC)  Inil-POim) 

-  -(-  0.01  = - 

Inil-PH)  [nil -PH  ) 


This  approximation  will  be  fairly  accurate  when  the  number  of  units  required  is  less  than  10.  As  the 
number  of  units  required  increases  the  accuracy  will  drop  off  where  the  error  could  be  more  then  five  percent. 
The  problem  involves  raising  fractions  to  larger  powers  where  significant  digits  are  lost  in  single  precision 
arithmetic. 
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'1 

j 

5  Late  in  the  preparation  of  this  report,  it  was  decided  to  replace  average  values  with  50th  percentile 

;  values  in  output  Tables  2  and  3  as  the  measures  of  central  tendency.  This  provides  a  better  method  of 

:  presenting  the  distribution  of  hazard  values  within  which  the  specified  percentile  (currently  the  90th 

percentile)  can  be  evaluated.  In  some  cases,  particularly  at  the  far  ranges,  90th  percentiles  can  be  less 
hazardous  than  the  arithmetic  average  values.  Average  hazard  density  and  hazard  probability  of  hit, 
however,  are  maintained  in  output  Table  1 .  It  is  planned  to  incorporate  the  average  number  of  units  required 
to  just  exceed  the  hazard  density  and  hazard  probability  of  hit  criteria  in  Table  1.  In  the  meantime,  the  user 
j  may  calculate  these  values  by  using  the  equations  above  in  this  block  along  with  the  average  hazard  values 

1  in  Table  1. 

Lines  941-951 

I  Table  3  is  printed  out  here.  Referring  to  Appendix  H,  it  can  be  seen  that  Table  3  correlates  with  Table  2; 

that  is,  maximum  density  or  probability  of  hit  produces  a  minimum  number  of  units  required  to  just  exceed  the 
density  and  probability  of  hit  criteria.  These  are  the  most  hazardous  conditions. 

!  Lines  952-958 


All  appropriate  accumulating  variables  are  zeroed  before  beginning  the  next  combined  range  increment. 

Lines  959-961 

Here  we  write  out  the  density  and  probabilicy  of  hit  criteria  at  the  end  of  Table  3  and  then  set  maximum 
range  to  hundreds  of  feet.  Then  we  loop  and  begin  the  next  combined  range  increment. 

Unes  962-964 

Here  we  set  the  printer  to  normal  character  mode  and  then  close  the  printer  port  before  ending  the 
program. 

BLOCK-25.  FUNCTION  SUBPROGRAM  TO  CALCULATE  RANDOM  NUMBERS 

This  is  the  portable  random  number  generator  which  generates  uniform  random  numbers  between 
zero  and  one.  Appendix  F  discusses  the  generator  and  provides  a  test  for  portability.  If  the  user  cannot  meet 
the  test  in  Appendix  F  then  he  will  have  to  use  hand  cases  to  check  the  MONTE  CARLO  option.  In  any  event, 
the  user  is  free  to  use  any  random  number  generator  he  chooses. 

All  the  variables  in  BLOCK-25  are  double  precision  e.xcept  (RND).  The  single  precision  variable 
(RND)  is  returned  to  the  main  program  at  the  point  of  call.  As  seen  in  lines  984  and  985  (RND)  has  six 
significant  digits  to  be  compatible  with  the  word  size  on  microcomputers.  As  a  result,  (RND)  can  be  equal  to 
zero.  If  this  occurs  then  line  985  causes  the  program  to  go  through  another  cycle  to  produce  a  random  number 
(RND)  not  equal  to  zero.  A  random  number  equal  to  zero  will  stop  the  program  at  line  400  where  we  take  the 
natural  log  of  the  random  number. 

The  random  number  generator  is  called  from  eight  places  in  the  MONTE  CARLO  option. 
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Random  Variable 

Call  Line 

Soil  Constant  (BQ) 

332 

Altitude  (ALT) 

333 

Wind  Speed  (WS) 

334 

Height  of  Origin  (HO) 

364 

Elevation  Angle  (E) 

365 

Initial  Velocity  (V) 

400, 401 

Drag  Coefficient  (Dl) 

417 

Note  that  the  random  number  generator  is  called  by  RND(UDUM)  where  UDUM  is  always  equal  to 
zero.  This  isolates  the  seed  and  reseed  variable  (LTX)  from  the  main  program.  UIX  is  properly  manipulated 
by  lines  972  and  983. 


BLOCK-26.  SUBROUTINE  FOR  SELECTING  INTEGRATION  STEP 

The  integration  step  is  a  function  of  the  elevation  angle  at  the  start  of  the  trajectory  and  after  each 
ricochet.  Since  the  elevation  angle  (XE)  after  ricochet  will  always  ^e  positive,  lines  994-997  will  only  apply  to 
the  start  of  the  trajectory  where  the  elevation  angle  (XE)  can  be  negative. 

The  integration  step  is  shown  graphically  in  Figure  20.  The  integration  step  for  negative  elevation 
angles  at  the  start  of  the  trajectory  may  be  as  much  as  50  ft  or  a  very  small  value  depending  on  the  value  of 
(HO)  and  the  elevation  angle  (XE)  specified  in  lines  994-997. 

A  constant  displacement  integration  step  is  used  in  lieu  of  a  constant  time  step  to  decrease  the  running 
time  of  the  program.  For  far-field  trajectories  where  the  time  of  flight  is  about  10s,  use  of  a  customary  0.01s 
time  step  would  result  in  about  1000  passes  through  the  Runge-Kutta  routine.  Using  a  displacement  step,  we 
would  only  need  about  100  passes  through  the  Runge-Kutta  routine,  reducing  the  running  time  by  a  factor  of 
about  10. 

The  integration  steps  shown  in  Figure  20  were  derived  empirically;  that  is,  by  trial  and  error  with 
thousands  of  trajectories.  In  all  cases,  running  time  was  sacrificed  to  stability  of  the  Runge-Kutta  routine. 
Instability  occurs  at  high  elevation  angles  where  the  Runge-Kutta  routine  must  negotiate  tight  turns  at  the 
top  of  the  trajectory.  The  calculation  of  special  time  steps  in  BLOCK-12,  line  460,  also  help  to  prevent 
instability.  To  a  lesser  extent,  running  time  was  sacrificed  to  accuracy.  Range  accuracy  will  seldom  exceed 
two  feet  and  most  of  the  time  the  error  will  be  less  than  one  foot. 

This  subprogram  is  called  from  lines  395  at  the  beginning  of  each  trajectory  and  from  line  677  after 
each  ricochet. 
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FIGURE  20.  TRAJECTORY  INTEGRATION  INCREMENT 
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ADDITIONAL  PROGRAM  CONSIDERATIONS 

PROGRAM  TEST  CASES 

Test  cases  for  the  MONTE  CARLO  and  FULL  FACTORIAL  options  are  contained  in  Appendix  H.  The 
details  for  the  two  tests  are  contained  there. 


WEAPON  FRAGMENTATION  DATA 

Complete  fragmentation  data  for  155mm  projectiles  (M107)  and  Mk82  Low  Drag  Bombs  are  contained 
in  Appendix  I.  Details  of  these  data  are  discussed  there. 


FUTURE  IMPROVEMENTS 
Drag  Coefficients 

The  correlation  for  drag  coefficients  shown  in  Figure  11  is  in  need  of  improvement.  Taking  an  area 
ratio  of  about  1.5  in  Figure  11,  the  difTerence  between  the  upper  and  lower  limits  is  about  0.6.  The  overall 
range  for  drag  coefficients  is  about  1.0;  that  is,  between  about  0.5  and  1.5.  The  range  of  uncertainty  at  an 
area  ratio  of  1.5  is  then  about  60  percent  of  the  total  range.  This  then  represents  an  average  reduction  in 
uncertainty  of  about  40  percent.  If  we  are  to  reduce  the  range  uncertainty  for  far-field  fragments  to  about 
plus  or  minus  10  percent,  the  uncertainty  in  drag  coefficient  will  have  to  be  reduced  by  about  75  percent. 
Work  should  continue  in  an  effort  to  meet  this  goal.  In  addition,  work  should  be  done  to  better  describe  the 
shape  of  the  transonic  and  supersonic  portions  of  the  drag  curve. 

Ricochet 


An  effort  should  be  made  to  define  fragment  breakup  characteristics  at  ricochet.  The  author  knows  of 
no  such  data.  Figures  5  and  6  show  predicted  versus  actual  fragment  recovery  for  155mm  projectiles  and 
Mk82  Low  Drag  Bombs.  The  data  in  Figure  5  show  excellent  agreement.  Figure  6,  however,  shows  a 
discrepancy  at  ranges  above  1800  ft.  Predicted  ranges  go  to  about  3200  ft  while  actual  recovery  stops  at  about 
2200  fi.  The  predicted  long-range  fragments  are  large  and  had  they  broken  up  would  have  gone  to  lesser 
ranges.  With  breakup,  the  predicted  versus  actual  data  might  have  been  better  at  ranges  above  1800  ft. 

The  fragment  ricochet  data  used  in  the  FRAGHAZ  program  were  obtained  from  tests  where  the  impact 
velocities  ranged  from  1000  to  5000  ft/s.  In  the  FRAGHAZ  program  we  consider  impact  velocities  from  20  to 
10,000  ft/s.  Additional  tests  are  required  to  check  ricochet  characteristics  over  this  extended  range  of  impact 
velocities. 

Crosswind 


As  yet,  no  practical  problems  have  been  run  with  a  crosswind.  If  it  does  become  necessary  to  run 
crosswind  problems,  the  program  will  have  to  be  modified  to  account  for  the  overlapping  of  fragments. 
Azimuth  sectors  larger  than  10  deg  may  have  to  be  considered  and  this  would  require  changes  to  the  methods 
we  use  to  accumulate  numbers  of  fragments,  density,  and  probability  of  hit  as  a  function  of  range. 
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FULL  FACTORIAL  Factor  Levels 

Currently,  factor  levels  are  chosen  to  cover  80  percent  of  the  range  of  uncertainty  for  the  random 
variables.  For  example,  if  the  range  of  uncertainty  for  a  uniform  random  variable  was  10  to  20,  then  we 
would  choose  1 1  and  19  as  factor  levels  spanning  80  percent  of  the  total  uncertainty.  For  a  normally 
distributed  variable  we  would  use  +  1.28  a  which  covers  about  80  percent  of  the  uncertainty  for  a  normal 
variable.  Changing  factor  levels  can  have  a  much  greater  effect  on  results  than  changing  seeds  in  the 
MONTE  CARLO  option.  Work  is  required  to  obtain  a  better  basis  for  selecting  factor  levels. 
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APPENDIX  A 


HAZARD  CURVE  FITTING  PROGRAM 
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Listing  A-1  contains  the  program  currently  used  to  fit  an  equation  to  the  retained  points  in  the  hazard 
tables.  It  is  coded  in  Microsoft  FORTRAN  77.  The  program  uses  a  least  squares  fit  by  means  of  matrix 
inversion.  The  fitted  equation  is: 


R  =  A^  +  A^€nN  +  A^en'^N 


where 

R  =  Hazard  Range  in  Feet 

N  =  Number  of  Units  Requiredto  Just  Exceed  the  Hazard  Criterion 

The  equation  is  very  stable  and  does  not  exhibit  oscillations  between  points  as  second  order 
polynominals  tend  to  do  when  only  a  few  points  are  used. 

The  program  does  not  include  any  statistical  tests.  The  user  may  add  any  that  seem  appropriate. 

Table  A-1  is  a  sample  of  the  program  output  using  the  hazard  data  of  Table  2  in  the  GENERAL 
PROGRAM  DESCRIPTION  Section  of  this  report.  The  user  may  want  to  start  with  the  largest  fractional 
number  of  units  so  as  not  to  unduly  bias  the  number  of  units  less  than  one.  It  is  probably  best  to  run  with  all 
the  fractional  numbers  also  and  pick  the  fit  which  best  serves  the  purpose  of  the  user.  The  fitted  equation 
with  all  fractional  retained  points  is  plotted  in  Figure  7  of  the  GENERAL  PROGRAM  DESCRIPTION 
Section.  Table  A-1  shows  that  errors  greater  than  200  ft  can  be  expected  using  the  fitted  equation.  This  is  not 
unusual  considering  the  erratic  nature  of  hazardous  fragment  distributions  in  the  hazard  volume.  The 
erratic  nature  is  shown  by  the  upper  boundary  defined  by  the  solid  lines  connecting  the  retained  points  in 
Figure  7. 

Generally  only  one  decimal  place  is  required  for  the  constants  of  the  fitted  equation.  If  the  absolute 
value  of  a  constant  is  less  than  1 0,  the  user  may  want  to  use  two  decimal  places  to  retain  accuracy. 

The  fitted  equation  represents  a  mean  such  that  some  retained  points  will  lie  above  it  and  some  below 
it.  From  a  safety  standpoint  it  may  be  desirable  to  have  a  curve  which  lies  at  or  above  all  retained  points. 

One  way  of  doing  this  is  to  use  a  three  point  regression.  Since  the  fitted  equation  has  three  constants,  if  only 
three  points  are  used  in  the  regression  the  resulting  curve  will  go  through  the  3  points  exactly.  The  three 
points  could  be  selected  as  follows:  (1)  a  minimum  point  at  or  near  the  minimum  number  of  units  required  N, 
(2)  a  maximum  point  at  or  near  the  maximum  N,  (3)  an  intermediate  point  near  the  apparent  knee  of  the 
curve.  The  procedure  may  have  to  be  repeated  to  insure  that  the  curve  lies  above  all  retained  points  but  not 
unduly  so. 
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LISTING  A-l.  FRAGFIT  COMPILER  LISTING 


D  Line#  1 
1 

2  C 

3  C 

4 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

n 


1 

2 

1 
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2 

2 

1 

1 

2 

2 
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2 

2 
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21 
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31 
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33 
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39 

40 

41 

42 

43 

44 

45 
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49 
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51 

52 

53 
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7  Microsoft  F0RTRAIM77  03,31 

PROGRAM  FRAGFIT 

SECOND  ORDER  NATURAL  LOG  FIT 

REAL  S,N(100) ,RN(100> ,T(3) ,X(3,3) ,YM(3) ,A(3) ,RE(100) 
INTEGER  NP,P,R,C,I 

WRITE (*,'  (AX)  '  ENTER  NUMBER  OF  POINTS  (AT  LEAST  3): 
RE  AD  (*,♦  INF- 
DO  10  P=1,NP 
WRITE(#,#)  '  ' 

WRITE(*,  '  (A, 15)  ')  •  POINT  NO.:  ' ,P 
WRITE (#, ' (A\) ') ■  ENTER  NUMBER  OF  UNITS: 

READS*, #)N(P) 

WRITE(*, ' (A\) ' ) '  ENTER  RANGE  (FEET): 

READ(*,*)RN(P) 

10  CONTINUE 

DO  20  P=1,NP 
T(l)=l. 

T(2)=L0G(N(P) ) 

T(3)=L0G(N(P) )**2 
DO  20  R=l,3 

YM(R)=YM(R)  +  RN(P)  *  T(R) 

DO  20  C= 1 , 3 

X (R,C) =X (R,C) +T(C) *T<R) 

20  CONTINUE 
DO  30  R= 1,2 
DO  30  C=R+1,3 
X (C,R)=X (R,C) 

30  CONTINUE 

DO  40  R=1 ,3 
DO  50  C=l,3 
IF(C.EQ.R)GaTO  50 
X (R,C)=X (R,C) /X (R,R) 

50  CONTINUE 

X (R,R)=1/X (R,R) 

DO  60  1=1,3 
IF(I.EQ.R)GOTO  60 
DO  70  C=l,3 
IF(C.EQ.R)GOTO  70 
X(I,C)=X(I,C)-X(R,C)*X(I,R) 

70  CONTINUE 
60  CONTINUE 
DO  80  1=1,3 
IF(I.EQ.R)GOTO  80 
X (I ,R)=-X (I ,R)*X (R,R) 

80  CONTINUE 
40  CONTINUE 

S=0 

DO  90  C= 1 , 3 
DO  100  R=l,3 
S=3+(X (C,R)*YM(R) ) 

100  CONTINUE 
A(C)=S 
S=0 


Page  1 
01-07-87 
14:35:37 
August  1985 
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LISTING  A-1.  FRAGFIT  COMPILER  LISTING  (CONTINUED) 


D 

Li  ne# 

1  7 

1 

57 

90  CONTINUE 

58 

59 

OPEN ( 1 , F 

60 

WRITE (1 , 

61 

WRITEd  , 

62 

DO  110  I 

1 

63 

WRITEd, 

1 

64 

110  CONTINUE 

65 

WRITE ( 1 , 

66 

t(LN(N)) 

67 

WRITEd  , 

68 

WRITEd, 

69 

WRITEd  , 

70 

WRITEd, 

71 

DO  1^0  P= 

1 

72 

RE<P) =A ( 

1 

73 

RE(P)  =  1 

1 

74 

WRITEIl , 

1 

75 

* (P>-RN(P; 

1 

76 

120  CONTINUE 

77 

CLOSE  d) 

78 

END 
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) 


) 


) 


(A) 

(/A) 

■  1  ,  i 

(A, I  1 ,A,F8 


PROGRAM  FRAGFIT' 
CONSTANTS' 


=' ,A(I) 


(/A) ') '  REGRESSION  EQUATION 


R  =  A1  +  A2  *  LN(N)  +  A3  * 


(/14X,A)  ')  'INPUT  AND  ERROR  TABLE' 

(12X,A,6X,A,5X,A)  ' )  'INPUT' ,  'RANGE' ,  'RANGE' 
(5X,A,2X,A,3X,A,5X,A>  ' )  'INPUT' ,  'RANGE' ,  'ESTIMATE'  ,  'ERROR' 
(4X,A,3X,A,7X,A,6X,A) ') 'NUMBER' , 'FEET' , 'FEET' , 'FEET' 


(1)  +  A<2>*L0G(N(P) >  +  A(3>*(L0G(N(P) ) )**2 
(1X,F9.2,3X,I4,5X,F6.  1 ,3X,.F7.  1 )  ' )  N  (P)  ,  INT  (RN  (P)  )  ,RE<P)  ,RE 


Name 

Type 

0-f-fset  P  Class 

A 

REAL 

1276 

C 

INTEGER*4 

1308 

I 

INTEGER*4 

1312 

INT 

INTRINSIC 

LOG 

INTRINSIC 

N 

REAL 

76 

NP 

INTEGER*4 

1288 

P 

INTEGER*4 

1292 

R 

INTEGER*4 

1304 

RE 

REAL 

876 

RN 

REAL 

476 

S 

REAL 

1316 

T 

REAL 

16 

X 

REAL 

28 

YM 

REAL 

64 

Name 

Type 

Size 

Cl  ass 

MAIN 

PROGR 

Pass  One  No  Errors  Detected 
78  Source  Lines 
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N  in 
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5 


n 


PROGRAM  FRAGFIT 

CONSTANTS 
A1  -  264.379 
A2  =  126.526 
A3  =  36.365 

REGRESSION  EQUATION:  R  =  A1  +  A2  *  LN(N)  +  A3*  (LN(N))  *♦  2 


TABLE  A-l.  INPUT  ANT  ERRORTABLE 


Input 

Number 

Range  Data 

Inp.it 

Range 

Feet 

Range 

Estimate 

Feet 

Range 

Erroi 

Feet 

.12 

50 

159  6 

109.6 

.24 

150 

7.9 

.43 

250 

-66.5 

a 

350 

212  2 

-137.8 

2.31 

450 

395  8 

-54.2 

5.16 

550 

5699 

19  9 

8.14 

650 

6896 

39.6 

12.72 

750 

821  4 

71.4 

20.41 

950 

976  8 

26.8 

34.63 

1050 

1169.8 

119.8 

53.12 

1150 

1340  9 

190.9 

67.73 

1550 

84.73 

1750 

HBI 

15Q  71 

1850 

1813.7 

-36.3 

-57.4 


79.7 
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APPENDIX  B 

FRAGHAZ  COMPILER  LISTING 


B-l 
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Listing  B-1  is  the  compiler  code  for  the  FRAGHAZ  program.  The  program  is  divided  into  26  BLOCKS 
and  each  line  is  numbered.  An  explanation  of  the  code  is  given  in  the  DETAILED  PROGRAM  DESCRIPTION 
section  of  the  main  body. 
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Li  ne# 
1 


4 

5 

6 

7 

8 
9 

10 
1  1 
12 

13 

14 

15 

16 
17 
IS 

19 

20 
21 


24 

25 

26 

27 

28 

29 

30 

31 


34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


1  7 

^^LARGE 

*DEBUG 

C 

C 

C 
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F  R  A  6  H  A  Z 

Quantity  -  Distance  Pragram 
(Fragmenting  Munitions) 


C  BLOCK  1 

C  Declare  Data  Type^ 


-for  Variables,  Dimension  Arrays 


REAL  ALT, ALTMAX , ALTMIN,AQ,AX ,AY,AZ 
REAL  B,BB,BQ 
REAL  CD,CH,CKE,CL 

REAL  D1 ,D2,D3,D4,DC,DD,DF,DLT,DM,DN,DR,DW,DX 

REAL  E,EA,EC,EE,ES,EY 

REAL  FG 

REAL  G,GX 

REAL  l-IM,Ha,HS,HX 

REAL  K 1 , K3 , K4 , K5 , K9 , KE , KK , KM , KW 

REAL  LE 

REAL  Ml ,M2,M3,MA,MN,MRA 
REAL  N1,N2,NR,NX  x 

REAL  P , PA , PC , PCTD , P I , PW , P5 , P9 
REAL  QE,QV 
REAL  RN,R0 

REAL  SI ,S2,S3,54,S5,S6,GCMIN,BCMAX,SIGS,BUM 
REAL  T5,TA 

REAL  V , VA , VF , VP , VR , VS , VXP , VYP , VZP 
REAL  WD,WM,WS,WSMAX ,WSMIN 
REAL  XA,XD,XE,XP,XR,XV 
REAL  Y,YE 
REAL  ZP,ZZP 

REAL  AE ( 500 )  , AM ( 500 )  , A  ?2 ( 500 ) 

REAL  D6H(100,97) ,D7MIN(97) ,D0MAX (97) ,D9(97) ,DI (7) ,DH(97) ,D0(7) 
REAL  DT(97)  ,DS(7)  ,D5(97) 

REAL  EQ(6) 

REAL  FHP(97) ,FL(10,25) , FTP (97) ,FW(500) 

REAL  HD(97) ,HN(97) ,HP(97) 

REAL  IE (500) , IV (500) 

REAL  NBMIN(97) ,N9MAX (97) ,NH(97> ,NP2(4,97) ,NT(97) 

REAL  PH (97) ,PT(97) ,PX( 100,97) 

REAL  TSMIN(97) ,T9MAX (97) ,TD(97) ,TI (97) ,TN(97) ,TP(97) 

REAL  VQ(6) 

REAL  X7DMIN(97) ,X8DMAX(97) ,X5D(97) ,X9D(97) ,XK(4,7) ,XN(97) 

REAL  X7PMIN(97) , X8PMAX (97) ,X9P(97) ,X5P(97) 

REAL  Y7DMIN(97) ,YBDMAX(97) ,Y9D(97) , Yl 
REAL  Y5D(97) ,Z7PMIN(97) ,Z8PMAX(97) 


:(36) ,YN(100,97 
,  Z5P(97)  ,Z9P(97) 


INTEGER  AS 
INTEGER  CX,CY 
INTEGER  EZ 

I NTEGER  F 1 , F2 , F3 , F4 , F5 , F6 , F7 , F 

INTEGER  I 

INTEGER  J 

INTEGER  K 

INTEGER  MR 
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D  Linett  1 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68  C 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 
00 
81 
82 

83 

84 
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INTEGER  N4,NF,NP 
INTEGER  PCT 

INTEGER  R,RB,RI ,RI2,RL,RZ 
INTEGER  T,TJ 
INTEGER  X5,XL 
INTEGER  NL<10) 

DOUBLE  PRECISION  USE,UDUM 

CHARACTER  Q* 1 4 , TS*64 , H9 ( 1 0 ) * 1 9 , NAM* 1 4 

Assign  Constant  Values 

DATA  Ml /O. 75/ , M2/ 1 . 5/ , M3/2. 5/ , VS/ 1 1 16.4/ 

DATA  Kl/2a6000. / ,K3/0. 038239/ ,K4/33900. / ,K5/144. / 
DATA  G/32. 174/ , K9/450436. / ,PI/3. 141593/ 

DATA  B/57. 29570/ , DR/0.0174533/, BB/6. 283185/ 

C  Assign  Variable  Constants 

DATA  ES/10. /,AS/10/ 

DATA  HM/5.72/,WM/l./ 

DATA  DM/0.55/  > 

PW=10000. *PI*AS/360. 


BLOCK  2 

Variables  to  be  input  at  runtime 

Select  Monte  Carlo  or  Full  Factorial  Option 


85 

86 

WRITE (*,30)'  Enter 

input  ( 

87 

30 

FORMAT (A\) 

88 

READ (*,40)0 

89 

40 

FORMAT (A) 

90 

WRITE (*,30) ■  Enter 

output 

91 

READ (*,40) NAM 

92 

WRITE (*,30) '  Enter 

target  i 

93 

READ(*,40)TS 

94 

WRITE (*,30) '  Enter 

mi ni mum 

95 

READ(*,*)SCMIN 

96 

WRITE (*,30)'  Enter 

maxi  mum 

97 

READ(*,*) SCMAX 

98 

WRITE (*,30)'  Enter 

height  i 

99 

READ(*,*)HS 

1 00 

WRITE (*,30) '  Enter 

stack  ii 

101 

READ(*,*)SIGS 

102 

WRITE(*,30) '  Enter 

number  i 

103 

READ(*,*)N4 

104 

WRITE (*,30)'  Enter 

number  i 

105 

READ (*,*) X5 

106 

WRITE (*,30)'  Enter 

number  i 

107 

READ (*,*) NF 

108 

WRITE (*,30)'  Enter 

percent 

109 

READ(*,*) PCT 

1 10 

PCTD=FLOAT (PCT) /1 00. 

111 

340 

WRITE(*,30)'  Select 

Option 

1 12 

T  (enter  0) : 

B-5 
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113  READ<*,*)RZ 

114  IF(RZ.EQ.O)  GOTO  350 

115  WRITE(*,30) '  Enter  number  of  replications  (100  max): 

116  READ  (*,^!-)NR 

117  350  WRITE (*,30) '  Enter  number  of  replications  /  treatments  to  be  print 

118  .ted:  ' 

119  READ(*,*)NP 

120  WRITE (*,30) '  Enter  minimum  altitude  of  ammo  storage  site  (feet): 

121  READ (*,*) ALTMIN 

122  WRITE(*,30)'  Enter  maximum  altitude  of  ammo  storage  site  (feet): 

123  READ(*,*) ALTMAX 

124  WRITE(*,30) '  Enter  minimum  wind  speed  ( f eet /second ) : 

1 25  READ ( * , * ) WSM I N 

126  WRITE(*,30) '  Enter  maximum  wind  speed  ( f eet /second ) : 

127  READ(*,*)WSMAX 

128  WRITE(*,30) '  Enter  wind  direction  (0  to  90  deg  :  0  is  tailwind): 

129  READ(*,*)WD 

130  DW=WD 

131  WD--=WD/B 

132  WRITE(*,30) '  Enter  maximum  computation  distance  (feet)  (9600  MAX): 

133  t  ' 

134  READ(*,*)MRA  x 

135  MR=INT (MRA/100) *100 

136  WRITE(*,30)'  Enter  hazard  kinetic  energy  criterion  (ft-lbs):  ' 

137  READ(*,*)KE 

138  WRITE(*,30)'  Enter  hazard  density  criterion  (f rags/sqf t ) :  ' 

139  READ(*,*)DC 

140  WRITE(*,30) '  Enter  probability  of  hit  criterion:  ' 

141  READ(*,*)PC 

142  IF (RZ.EQ.0)6QT0  410 

143  403  WRITE(*,  '  (A\)  ')  '  Enter  Integer  Fiandom  Number  Seed  (1  to  2147483646 

144  :f):  ' 

145  READ (*,*) USE 

146 

147  410  WRITE (* , ' ( //A) ' ) '  Replace  PROGRAM  Disk  in  Drive  A:  With  DATA  Disk' 

148  PAUSE 

149  WRITE (*, ■ (//A) ' ) '  -  FRAGHAZ  RUNNING  - ' 

150 

151  C  BLOCK  3 

152  C  Print  All  Essential  Conditions  for  the  Run 

153 

1 54  OPEN ( 1 , F I LE=NAM , ST ATUS= ' NEW ' ) 

155  WRITE<1,*)CHAR(14) , 'FRAGHA7' 

156  WRITE(1,*) 'quantity  -  distance  program  (fragmenting  munitions) ' 

157  WRITE ( 1 , ' (///A,A) ' ) '  Source  of  frag  data:  ',0 

158  WRITE ( 1 , ' (A, A) ' ) '  Output  file:  ',NAM 

159  WRITE(1,*) 'Target  description:  ',TS 

160  WRITE ( 1 , ' ( 1 X , 2 ( A ,F4 . 2) ) ' ) ' Mi ni mum  soil  constant-  ',SCMIN,'  Max 

161  -^imum  soil  constant^  '  ,SCMAX 

162  IF(RZ.EQ.  DTHEN 

163  WRITE ( 1 ,*) 'MONTE-CARLO  OPTION' 

164  ELSE 

165  WRITECl ,*) 'FULL  FACTORIAL  OPTION' 

166  ENDIF 

167  WRITE(1, ' (/A) ') '  3-D  fragment  trajectories,  3-D  man,  2~D  wind' 

168  WRITE (1,*) 'CD  is  a  function  of  fragment  max  to  avg  presented  area 
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Line#  1 

169 

170 

171 

172 

173 

174 

175 

176 

177 
17B 

179 

180 
IBl 
182  C 
1S3 

184 

185 

186 
187 
IBB 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201  C 

202  C 

203 

204 

205 

206 

207 

208 

209 

2 1 0 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 
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•■trati  o  ' 

WRITE  (1,*)  'Run  contains  -fragment  ricochet  routine' 

WRITEd,*)  'Variable  air  density,  altitude,  and  sound  speed' 

WRITE ( 1 ,  '  < A , 13 , A)  ' )  '  Ejection  zone  size-  ' , I NT (ES)  ,  '  degrees ' 

WRITE (1,'(A,I2,A)'>'  Azi muth  sector  si z e=  '  , AS ,  '  degrees ' 

WRITE  ( 1  ,  '  (A,  16)  '  )  '  Number  o-f  units  or  interaction  ar3as=  ',N4 

WRITE  <  1  ,  '  ( A  ,  13)  ' )  '  Number  o-f  -fragment  multipliers^  '  ,  X5 

WR I TE  (1,  '  (A,F5.1,A)  ')  '  Fragment  hazard  criteri  on=  '  ,  KE  ,  '  -f  t— 1  bs  ' 

WRITE< 1 , ' <A, 12) ' ) '  Percentile=  ' , PCT 

IF<RZ.EQ. 1. )THEN 

WRITE! 1 , ' (A, 110) ' ) '  MONTE  CARLO  SEED=  ',IDINT<USE) 

Y=RMD (USE) 

UDUM=0D0 

From  this  point  on  call  function  RND  with  dummy  argument  UDUM 
ENDIF 

WRITE (1,  '  (A,F9.3,A)  ')  '  Mini  mum  altitude  of  ammo  storage  si te=  '  , AL 
•i:TMIN,'  feet' 

WRITE ( 1 , ' ( A , F9 . 3 , A) ' ) '  Maximum  altitude  of  ammo  storage  site=  ' , AL 
^TMAX,'  feet' 

WRITE  (1 ,  '  ( A ,  F6. 2 ,  A)  ' )  '  Height  of  ammo  stack=  ',f-IS,'  feet' 

WRITEd,  '  <A,F6.2,A)  ')  '  Stack  inert  ground  standoffs  ',SIGS,'  feet' 
WRITE  <1,  '  (A, 15)  ')  '  Number  of  f  r agmentB=  ' , NF 

WRITE  d  ,  '  (A  ,  14  ,  A)  ' )  '  Maximum  ccJmputati  on  range:  ',MR,'  feet' 

WRITE ( 1 ,  '  ( A , F7. 2 , A , F7. 2 , A ,F7. 2)  ' )  '  Dimensions  of  the  target  (feet) 
HM=',HM,'  WM=',WM,'  DM=',DM 

WRITE ( 1 , ' ( A , F9. 7 , A) ' ) '  Hazard  density  criterion=  ' , DC , '  frags/sqft 
■t ' 

WRITE (1,  '  (A,F9.7)  ')  '  Haz  ar d  probab ility  of  hit  cri teri on—  '  , PC 
WRITE  ( 1  ,  '  (A,F6. 2,  A)  ' )  '  Minimum  wind  speed--  ',WSMIN,'  feet/second' 
WRITE  (1  ,  '  (A,F6.  2,A)  ' )  '  Maximum  v^ind  speed-  ',WSMAX,'  feet/second' 
WRITE! 1, ' (A,F6.2,A//) ') '  Wind  direction-  ' , DW , '  deg  (0-tailwind) ' 

BLOCK  4 

Headings  and  Number  Formats  for  Output  Tables 


870  FORMATCIX, 'FRAG' ,6X, 'E' ,9X, ' WT ' ,6X, 'A/M' ,6X, ' IV' ,5X, 'CD' ,4X, 'DIGTW 
* ' ,7X ,  'VF  '  ,6X ,  'KE ' ,6X,  ' TOF ' , 6X ,  ' EF ' , 2X ,  'RANGE '  ,4X ,  ' XRN '  , 5X ,  ' X A  '  , 3X , 
•T  '  XD  '  ,  7X  ,  '  AR  '  ,  5X  ,  '  HO  '  ,  3X  ,  '  RB  '  /  ) 

880  FORMAT  dX  ,  1 4 , 4X  ,  F6. 2 , 3X  ,  F7 .  1 , 3X  ,  F5. 2 , 3X  .  1 5 , 3X  ,  F4  2  „  3X  ,  15 ,3X  ,F6.  1  ,3 
■fX  ,F6.  1 ,3X  ,F5.2,3X  ,F5.  1 ,2X  ,  I5,3X  ,  I4,3X  ,F4.  1 ,3X,  I  2 , 3X  ,  F6.  2 , 2X  ,  F5.,  2,3 
:tX,I2)  . 

890  FORMAT!'  Di stance ', 17X ,' Total  SOX ,' Haz ard ', 20X ,  ' -  Total  Numbe 

i^r  of  Final  Ground  Impacts  - - ') 

900  f-'ORMAT  (  '  (feet)  ',  7X  ,'  Total  ',  5X  ,  '  Density  ’  ,  7X  ,  'Total  '  ,  6X  ,  '  Hazar  d  '  ,5 
tX  ,  '  Densi  ty  '  ,  6X  , 'Hazc^rd  '  ,  19X  ,  12  ,  '  Degree  Azimuth  Sector') 

910  FORMAT  (  '  From  '  ,  3X  ,  '  To  '  ,  7X  ,  'No.  '  ,  5X  ,  'Frags/sqft  '  ,  tlX  ,  '  P-hi  t  '  ,  BX  ,  'No. 
t ' , 4X , ' Frags/sqf t ' ,5X ,  'P-hi t ' , 16X ,  ' Mi n ' , i2X ,  '  Avg ' , 13X ,  ' Max  ' ) 

920  FORMAT  dX , 1 4 , 2X , 1 4 , 4X , F7. 2 , 3X , F 10. 6 , 3X , F8 . 6 , 4X , F7. 2 , 3X , FI 0. 6 , 3X , FB 
■t.6,  lOX  ,Fa.2,7X,Fa.2,aX,F8.2) 

970  FORMAT!'  HAZARD  -  NUMBER  OF  UNI 

^TS  TO  JUST  EXCEED  - '  ) 

940  FORMAT!'  DISTANCE  - DENSITY  CRITERION  - ', 

•tlOX,' -  P-HIT  CRITERION  - - - ') 

950  FORMAT  !  '  (FEET)  '  ,  lOX  ,  'MIN'  ,  9X  ,  12 ,  '  7. '  ,  9X  ,  '507. '  ,9X,  'MAX  '  ,  16X  ,  'MIN  '  ,9 
.fX,I2,  '7.'  ,9X,  '507.'  ,9X,  'MAX') 

960  F0RMAT(2X,I4,5X,F9.2,3X,F9.2,3X,F9.2,3X,F9.2, 10X,F9.2,3X,F9.2,3X,F 
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256 
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f9.2,3X,F*9.2) 

980  FORMAT  ( 1  6X  Han  ard  Density  Criterion=:  ',F7.6,'  -f  rag/sq-f  t  '  ,6X  ,  'Haza 
$rd  P-hit  Criterion-"  ',F5.3/) 

982  FORMAT  (  '  Distance  -  Hazard  Density  (Frags/sq-ft)  - 

—  -  Hazard  Probability  o-f  Hit - ') 

984  FDRMATdX,  '  (feet)  '  ,9X,  'Ma>!  '  ,10X,I2,  ,10X,  '507.'  ,10X,  'Min'  ,16X,  '  Ma 

'  ,9X,I2,  •'/.■  ,9X,  '507.'  ,9X,  'Min') 

986  FORMAT (2X , I  4 , 5X , F 1 0. 6 , 3X , FIO. 6 , 3X , FIO. 6 , 3X , F 10 . 6 , 1 1 X , FB. 6 , 4X , F8. 6 , 
•.T4X  ,F8. 6,4X  ,Fa.  6) 

C  BLOCK  5 

C  Read  Fragmentation  Data 

C  If  applicable,  read  Full  Factorial  Data 


0PEN(2,FILE=Q) 

READ (2,*) (Y2(I) ,I=1,X5) 

WRITE<1,*) 'Fragment  multipliers' 

WRITEd,  '  (9(2X',,F6.5)  )  ')  (Y2d)  ,I  =  1,X5) 

DO  1050  I=1,X5 

Y2  ( I )  ■-•Y2  ( I )  -m-FLOAT  (AS) 

1050  CONTINUE 

DO  1120  F=1,NF 

READ(2,*)PA,FW(F) ,AM(F) ,IV(F) ,AR2(F)x 

IE (F) =90. 0-PA 

AE(F)=IE(F) 

1120  CONTINUE 

IF  (RZ.EQ.O)  THEN 

WRITEd,  '  (//IX,  A)  ')  'FACTOR  L'EVELS  ' 

H9d)  =  'S0IL  CONSTANT:  ' 

H9 (2) = 'HEIGHT  OF  ORIGIN:  ' 

H9 (3) = 'ELEVATION  ANGLE:  ' 

H9(4)='INITIAL  VELOCITY;  ' 

H9(5)='DRAG  COEFFICIENT;  ' 

H9 (6) = 'ALTITUDE;  ' 

H9(7)='WIND  SPEED:  ' 

DO  1129  1=1,7 

WRITE ( 1 , ' (1 X , A\) ' ) H9 ( I ) 

READ (2,*,ERR=1 128) (FL(I,J) ,J=1,25) 

1128  WRITE (1 ,  '  (25(F8.  4) >  ' )  (FL (I ,T)  ,T=1 , J-1 ) 

NL ( I ) =J-1 

1129  CONTINUE 

NR=NL  ( 1 )  *NL  (2)  *NL  (3)  *NL  (4)  *NL  (5)  *|\IL  (6)  *NL  (7) 

IF  (NR.GT.lOO)  THEN 

WRITE (*,*) 'MAX  NO.  OF  TREATMENTS  =  100' 

STOP 

ENDIF 

END  IF 
CLOSE (2) 

IF(RZ.EQ.  UTHEN 

WRITE (1 , ' (/A, 13) ' ) '  NO.  OF  REPLICATIONS  =  ',INT(NR) 
WRITE d , ' (A, 13//) ' ) '  NO.  OF  REPLICATIONS  PRINTED  =  ',NP 

ELSE 

WRITE (1 , ' (/A, 13) ' ) '  NO.  OF  TREATMENTS  =  ',INT(NR) 

WRITE (1 , ' (A, 13//) ' ) '  NO.  OF  TREATMENTS  PRINTED  =  ' , NP 

ENDIF 
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7  Microso-ft  F0RTRAN77  V3 

BLOCK  6 

Begin  Replication  or  Treatment  Loop  -  Set  Conditions 
MR=MR/100 


Initialize  Probability  o-f  Not  Hitting  the  Target 

DO  1158  T=1,INT(NR> 

DO  1159  R=1,MR+1 
PX (T,R>=1 . 

1159  CONTINUE 
1158  CONTINUE 

T=0 

IF(RZ.EQ.O)GOTa  1162 

1160  T=T+1 

IF(T.GT.NR)G0TQ  3570 
GOTO  1170 

1162  F1=0 

1163  F1=F1+1 

IF<F1.GT.NL(1) )G0T0  3570  x 

F2=0 

1164  F2=F2+1 

IF (F2.GT. NL (2) ) GOTO  1163 
F3=0 

1165  F3=F3+1 

IF (F3.GT.nl (3) ) GOTO  1164 
F4=0 

1166  F4=F4+l 

IF(F4.GT-NL(4) )GaT0  1165 
F5=0 

1167  F5=F5+1 

IF (F5, GT. NL (5) ) GOTO  1166 
F6=0 

1168  F6=F6+1 

IF(F6,GT.NL(6) IGOTO  1167 
F7=0 

1169  F7=F7+1 

IF(F7.GT.NL(7) )G0T0  116B 
T=T+1 

50  F0RMAT(31X ,A, I3,A/) 

1170  IF(RZ.Ea.O)THEN 

WRITE (1 ,50) 'TREATMENT  (  ',T,'  )’ 

BQ=SCMIN+ (SCMAX-SCMIN) *FL ( 1 ,F1 ) 
ALT=ALTMIN+ ( ALTMAX-ALTMIN) *FL(6,F6) 
WS=WSMIN+ (WSMAX-WSMIN) *FL(7,F7> 

ELSE 

WRITEd  ,50)  'REPLICATION  (  ',T,'  )' 

BQ=SCMIN+ (SCMAX-SCMIN) *RND (UDUM) 
ALT=ALTMIN+ (ALTMAX-ALTMIN) *RND (UDUM) 
WS=WSMIN+ (WSMAX-WSMIN) *RND (UDUM) 

END  IF 
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D  Line# 

1  7 

337 

IF( <WS.EQ.O. ) .OR. ( 

338 

EZ=0 

339 

XL=4 

340 

ELSE 

341 

EZ  =  1 

342 

XL=6 

343 

344 

ENDIF 

345 

WRITEU  ,  '  t:iX,A,F5. 

346 

^,'Altitude=  ',ALT, 

347 

WRITE(1,*)CHAR<15) 

348 

WRITE ( 1 ,870) 

349 

1  350 

DO  1300  R=l,MR+l 

1  351 

PT (R) =1 . 

1  352 

PH(R)=1. 

1  353 

354 

1300  CONTINUE 
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355  C  BLOCK  7 

356  C  Begin  Fragment  Loop  -  Set  Height  o-f  Origin  and  Elevation  Angle 


357 

358 

DO  3450  F=1,NF 

1 

359 

RB=0 

1 

360 

IF(RZ.Ea.O)THEN 

1 

361 

H0=SIGS+FL (2,F2)*(HS-SIGS) 

1 

362 

E=(AE(F)+ES*FL<3,F3) ) /B 

1 

363 

ELSE 

1 

364 

H0=SI6S+  <HS-SIGS)*RND(UDUM) 

1 

365 

E=  (AE  <F)  +ES*RND  <UDUI'1)  )  /B 

1 

366 

ENDIF 

1 

367 

XE=E*B 

1 

368 

YE=XE 

1 

369 

1 

370 

IF(HO.GE.HM)THEN 

1 

371 

CY=1 

1 

372 

ELSE 

1 

373 

II 

> 

u 

1 

374 

ENDIF 

1 

375 

1 

376  C 

BLOCK  a 

1 

377  C 

Set  Remaining  Initial  Conditions  -for 

1 

379 

1 

379 

FG=FW (F) /K9 

1 

380 

RL=0. 

1 

381 

1 

382 

IF(XE.GT.B9.99)THEN 

1 

383 

XE=99.99 

1 

384 

E=89. 99/B 

1 

385 

YE=89. 99 

1 

386 

ELSEIF( (XE.LT.0,01) .AND. (XE.GE.O. : 

1 

387 

XE=0. 01 

1 

388 

E=0. 01/B 

1 

389 

YE=0.01 

1 

390 

ELSEIF( (XE.LT.O. ) .AND. (XE.GT.-O.O 

1 

391 

XE=-0.01 

1 

392 

E=-0. 01/B 
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1  393  YE=-0.01 

1  394  END  IF 

1  395  CALL  INTSTP<XE,HO,E,XD) 

1  396 

1  397  IF(RZ,ED.0)THEN 

1  398  V=IO(F)+IV(F)*0.035*FL(4,F4) 

1  399  ELSE 

1  400  DD=SQRT<-2.*L0G(RND(UDUM> ) ) 

1  401  EE=BB*RND<UDUM) 

1  402  N1=DD*C0S<EE) 

1  403  N2=DD*SIN (EE) 

1  404  V=IV(F)+IV(F)*0.03S*N1 

1  405  END IF 

1  406 

1  407  XV=V 

1  408 

1  409  C  BLOCK  9 

1  410  C  Establish  Drag  Parameters 

1  411 

1  412  CH=1.75*AR2<F)-1.27 

1  413  CL=0.66*AR2<F)-0.26 

1  414  IF(RZ.EQ.0)THEN  x 

1  415  D1=CL+(CH-CL)*FL(5,F5) 

1  416  ELSE 

1  417  D1=-CL+(CH-CL>*RND(UDUM) 

1  418  ENDIF 

1  419  D2=Dl+0.2 

1  420  D3=Dl+0.65 

1  421  D4=D1+0.S 

1  422 

1  423  C  BLOCK  10 

1  424  C  Set  Initial  Conditions  for  Fragment  Trajectory 

1  425 

1  426  DI(1)=0. 

1  427  DI <2)=V*C0S(E) 

L  428  DI(3)=0. 

1  429  DI (4)=V*SIN(E) 

1  430  DI(5)=H0 

1  431  DI(6)=0 

1  432  DI(7>=0 

1  433 

1  434  C  BLOCK  11 

1  435  C  Begin  Trajectory  Calculations 

1  436 

1  437  2140  V=S0RT(DI (2)*DI (2)+DI (4)*DI (4)+DI (6)*DI (6) ) 

1  438  DLT=XD/V 

1  439  LE=ABS(ATAN(DI (4) /SQRT(DI (2)*DI (2)+DI (6)*DI (6) ) ) ) 

1  440  IF(LE.LT. (0.001/B) )LE=0.001/B 

1  441 

1  442  C  BLOCK  12 

1  443  C  Compute  Special  Time  Increment  if  Conditions  Dictate 

1  444 

1  445  IF(DI (5) .LE.HM)THEN 

1  446  IF( (DI (4) .LT.O. ) .AND. ( (DI (5) /SIN(LE) ) .LT. (XD+HM-0.2) ) ) DLT= < 

1  447  SDI (5) /SIN(LE)~HM+0.2) /V 

1  448  IF ( (DI (4) . LT.O, ) .AND. ( (DI (5) /SIN (LE) ) . LT. HM) )DLT=(DI (5) /SIN 
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2 
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2 
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2 
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2 
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o 

499 

2 

500 

2 
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2 

502 

2 

503 

2 

504 
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#(LE)-0.3) /V 

IF(  (DI  (4)  .LT.O.  )  .AND.  (  <DI  (5)/SIN(LE;>  )  .LT.0.4)  )DLT=DI  (5)  /SIN 
■iP(LE)  /V+0.  000002 

ELSEIF( (DI (4) .LT.O. ) .AND. (DI (5) .LT. (XD+12. ) ) ) THEN 

IF  (.MOT.  (  (  (DI  (5)-HM) /SIN(LE)  )  .GE.  (XD+HM'-0.2)  )  )  DLT=  (  (DI  (5)-H 
/SIN(LE)-HM-(-0.2)  /V 

IF ( ( (DI  (5) -HM) /SIN (LE) ) -LT. HM) DLT= (  (DI  (5) -HM) /SIN (LE) -0. 3) / 

•TV 

IF( ( (DI (5) -HM) /SIN (LE) > .LT.0.4) DLT= (DI (5) -HM) /SIN(LE) /V+0.0 

•TO 000 2 
END  IF 

IF( (V.LT. 100. ) .AND. (DI (4) .GT.-30. ) .AND. (DLT.GT.O. 1> )DLT=0. 1 
IF( (RB.GT. 1) .AND. (V.LT. 150. > .AND. (DLT. GT. 0. 08) )DLT=0.08 
DI  (1>=DI  (l)-v-DLT 

BLOCK  13 

Begin  Runge-Kutta  Routine  and  Calculate  Wind  E-f-fects 

DO  2920  1=1,4 
IF(I.LT.3)THEM 
KM=0.5 

ELSE 

KM=  1 . 

ENDIF 

IF (.NOT. (WS.GT.O. ) ) THEN 

VP=5GRT(DI  (2)-»DI  (2)-4-DI  (4)  -»DI  (4)  ) 

AY=ATAN (DI (4) /DI (2) ) 

AX=PI/2-AY 

ELSEIF(DW.EQ.O. ) THEN 
VXP=DI (2) -WS 
VYP=DI (4) 

VP=SQRT  (VXP-!<-VXP-t-VYP*VYP) 

AY=ATAN (VYP/ABS (VXP) ) 

AX=ATAN (VXP/ABS (VYP) ) 

ELSE 

VXP=DI (2) -WS-frCOS (WD) 

VYP=DI (4) 

VZP=WS*SIN (WD)-DI (6) 

VP=SQRT(VXP*VXP-i-VYP*VYP-t-VZP*VZP) 

AY=ATAN  (VYP/SQRT(VXP-)tVXP+VZP*VZP)  ) 

AX=ATAN(VXP/SDRT  ( VYP*VYP-^■VZP^(■VZP)  ) 
A2=ATAN(VZP/SQRT(VXP*VXP-^VYP*VYP)  ) 

ENDIF 
BLOCK  14 

Calculate  Air  Density,  Mach  Number,  and  CD 

R0=K3-ttEXP  (-  (  (DI  (5)  -i-ALT)  +DI  (4)  -kDLT/O)  /1<4) 

MN=VP/  (VS*EXP(-(  (DI  <5)h-ALT)  -i-DI  <4)*DLT/2)  /K1)  ) 

IF(MN.GE.M1>THEN 

IF(MN.GE.M2)THEN 

IF(MN.GE.M3)THEN 

CD=D4 

ELSE 

CD=D3-0. 15/ (M3-M2) * (MN-M2) 

ENDIF 


B-12 


NSWC  TR  87-59 


D 

Li  ne# 
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7 

505 

ELSE 

2 

506 

CD=D3-0. 45/ (M2-M1 

507 

END  IF 

2 

508 

ELSE 

509 

CD=D2-0. 2/ (Ml-O. 1 

O 

510 

END  IF 

2 

51  1 
512 

C 

BLOCK  15 

513 

C 

Calculate  Velocities  and 

o 

r> 

514 

515 

kk:=rq*vp*vp*cd*am  (F>  /K 

2 

516 

DQ(2)=-KK*SIN<AX) 

2 

517 

DQ(3)=DI (2) 

n 

518 

DO ( 4 ) =-KK*S I M ( AY ) -G 

519 

DO (5) =DI (4) 

520 

IF<EZ.NE.0)THEN 

2 

521 

DO (6) =KK*SIN (AZ) 

2 

5^^ 

00(7) =DI (6) 

2 

523 

ENDIF 

2 

2 

524 

525 

c 

BLOCK  16 
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C  Basic  Runge-Kutta  Calculations 


2 

527 

X 

2 

528 

DO  2910  J=2,XL,2 

3 

529 

IF (.NOT. (I.GT. 1) )DS(J)=DI (J) 

3 

530 

XK(I ,a)=D0(J)*DLT 

o 

531 

IF(I.EQ.4)THEN 

532 

DI  (J  )  =DS  (J)  +  (  XK  ( 1  ,  J  )  +2*X'K  (2  ,  J  )  +2*XK  (3  ,  J  )  +XK  (4  ,  J  )  )  /6. 

0* 

533 

DI (J+1 ) =DI (J+1)+DLT*(DS(J)+(XK (1 , J)+XK (2, J) +XK (3, J) ) /6. 

534 

ELSE 

3 

535 

DI  (J)=DS(J)+XK(I,J)*KM 

536 

ENDIF 

537 

2 

910 

CONTINUE 

o 

538 

2 

920 

CONTINUE 

1 

539 

1 

540 

C 

BLOCK  17 

1 

541 

c 

Check  Location  of  Fragment  and  Make  Hazard  Volume  Calculations 

1 

542 

c 

if 

Applicable 

1 

543 

1 

544 

R=INT(SDRT(DI (3)*DI (3)+DI (7)*DI (7) ) /100)+1 

1 

545 

IF(R.GT.MR)R=MR+1 

1 

546 

IF (DI (5) . GT.HM) THEN 

1 

547 

CX  =  1 

1 

548 

ELSE 

1 

549 

CX=0 

1 

550 

ENDIF 

1 

551 

IF(CX.NE.  DTHEN 

1 

552 

GOTO  3020 

1 

553 

ELSEIF(CY.NE.  DTHEN 

1 

554 

CY=1 

1 

555 

DF=(DI (5)-HM) /TAN(LE) 

1 

556 

R=INT ( (SQRT(DI (3)*DI (3)+DI (7)*DI (7) )-DF) /lOO) +1 

1 

557 

IF(R.GT.MR)R=MR+1 

1 

558 

ELSE 

1 

559 

GOTO  5170 

1 

560 

ENDIF 

B-13 


NSWC  TR  87-59 


D 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
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3020  I F ( R . NE . RL ) THEN 
P=0. 

81=0. 

82=1 . 

83=0. 

84=1 . 

85=1  . 

86=U . 

TA=Q. 

MA=0 . 

XP=0. 

ZP=0. 

ZZP=0. 

DX=0. 

GX=0. 

HX=0. 

ENDIF 
BLOCK  18 

Routine  -for  Accumulating  Number  o-f  Fragments,  Density,  and 
Probability  o-f  Not  Hitting  the  Target 

V 

NX=FL0AT (N4) *Y2( INT  < (90~IE(F) ) /E8)  ) 

P=P-+- 1 

IF(R.EQ.MR+l)GaTQ  5440 


IF(P.GT. 1 ) GOTO  5250 
NT(R>=NT(R)-i-NX/NR 

5250  LE=ABS(ATAN<DI  (4)  /8E!RT<DI  (2)*DI  (2)  -+01  (6)  -frDI  (6)  >  >  ) 

TA=PW*<R*R-  (R-1 )  *  (R-1 )  )  *SIN<LE)  -t-AS^DR*  (  (R*100)  -50)  *HM*C08  <LE) 
IF(DI (4) .LE.0)THEN 

MA=<HM*C0S(LE)-i-DM*SIN<LE)  >  *WM 

ELBE 

MA=HM*C0S(LE) *WM 

ENDIF 

DX=  (DX*  (P-1 )  •^-NX/TA)  /P 
DT  (R)  =DT  (R)  -^DX/NR-Bl 
81=DX/NR 

XP=  (XP-t<  (P-1 )  +EXP  (-NX*MA/TA)  )  /P 

PT(R)=PT(R)*XP/S2 

82=XP 

CKE=FB»(DI  (2)*DI  (2)-+-DI  (4)-t(-DI  (4)-h-DI  (6)*DI  (6)  ) 

IF(CKE.LT.KE)NX=0 
GX=(GX-i<-(P-l)+NX)  /P 
NH(R)  =NH(R)  -t-GX/NR-S6 
86=GX/NR 

HX= (HX* (P-1 ) +NX/TA) /P 
DH (R) =DH (R) +HX/NR-S3 
D6H(T,R)  =D6H(T,R)-^HX-S3x•NR 
S3=HX/NR 

ZP=  (  ZP-»<-  (P-1  )  -^EXP  (-MX*MA/TA)  )  /P 

ZZP=  (ZZP*  (P-1  )  -i-EXP  (-NX/FLOAT  (N4)  *MA/TA)  )  /P 

PH(R)=PH(R)*ZP/S4 
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S4=2'' 

PX (T,R)=PX (T,R) *2ZP/S5 
S5=ZZP 
5440  RL=R 

5170  IF<DI (5) .GT.O. >G0T0  2140 
C  BLOCK  19 

C  Check  -far  Ricochet  and  Compute  New  Initial  Conditions 
C  -for  Ricochetting  Fragment 

E=ATAN(DI(4)/SDRT(DI (2)*DI (2)+DI (6)*DI (6) ) ) 

VR=SG!RT<Dr  (2)*DI  <2)+DI  (4)*DI  (4)+DI  <6)*DI  <6)  ) 

IF  (RB.GT.6)GQTa  3330 

IF<  <  (ABS(E*B)  )  .GE.  ( 10.  a*BQ*-»-0. 38 )  )  .OR.  (0R-LT.20.  )  )  GOTO 
EY=ABS(E*B) 

VQ ( 1 ) =-. 01597*EY*EY+.02156*EY+. 9617 

VQ  <  2 ) =- . 0086 1 *EY*EY+. 00692*EY+ . 96302 

VQ  <3) =-. 003a7*EY*EY-. 00414*EY+. 95592 

VQ (4) =-. 00342»EY*EY-. 00097*EY+. 9409 

VQ ( 5 ) =- . 00243*EY*E Y- . 0052*E Y+ .9308 

VQ ( 6 ) =- . 00 1 88*EY*E Y- . 0082 1 *EY+ . 93802 

EQ<1)=  , 13829*EY*EY-,9a645*EY+2.8155 

EQ (2) =  .  08549*EY*EY-. 7a423»EY+2H  9012 

EQ (3>=  .07515*EY*EY-.73919*EY+3. 1056 

EG (4) =  . 02142#EY*EY-. 37397*EY+2. 7850 

EQ ( 5 ) =  .01 707*E Y*E Y- . 3252 1 *EY+2 . 8092 

EQ  <6) =  . 01369»EY*EY-. 2958*EY+2. 8262 

IF  (.NOT.  (  (BQ.GE.0.25)  .AND.  (B0.-LT.0.5)  )  )  GOTO  5680 

QV=VQ ( 1 >  +  (BQ-.25) /. 25»(VQ(2)-VQ( 1 ) > 

QE=EQ(n  +  (BQ-.25)  /  .25#(EQ(2)-EQ(1)  ) 

GOTO  5820 

5680  IF<.N0T. ( (BQ.GE.0.5) .AND. (BQ.LT. 1. ) ) )G0TD  5720 
QV=Va(2)+(BQ-.5) /.5*<VQ(3)-VQ(2) ) 

QE=EQ(2)+(BQ-.5) /.5*(EQ(3)-EQ(2) ) 

GOTO  5820 

5720  IF(.N0T.  < (BQ.GE. 1. ) .AND.  (BQ.LT.2. ) > )GOTO  5760 
QV=VQ<3)+(BQ-1)*(VQ(4)-VQ(3) ) 
QE=EQ(3)+(BQ-1)*(EQ(4)-EQ(3) ) 

GOTO  5820 

5760  IF<.N0T. ( (Ba.GE.2. ) .AND. (BQ.LT.3. ) > )G0T0  5800 
QV=VQ(4)+<BQ-2)*(VQ<5)-VQ(4) ) 
QE=ED(4)+(BQ-2)*(EQ(5)-EQ(4) ) 

GOTO  5820 

5800  QV=VQ (5) + (BQ-3) * (VQ (6) -VQ (5) ) 
QE=EQ(5)+(BQ-3)*(EQ(6)-EQ(5) > 

5820  VA=QV*VR 
EA=-E*QE 
XE=EA*B 

IF  ( VA . LT . 20 . ) GOTO  3330 
RB=RB+1 

DI (4) =VA*SIN(EA) 

IF( (DW.EQ.O. ) .OR. (WS.EQ.O. ) ) THEN 
DI (2)=VA*C0S(EA) 

DI (6) =0. 

ELBE 

AQ=ATAN(DI (2) /DI (6) ) 
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1  1 

673 

DI <2)=VA*C0S(EA)*SIN(AQ) 

1 

674 

DI <6)=VA*C0S(FA)*CaS<AQ) 

1 

675 

END  IF 

1 

676 

3250  I F  <  VA . LT .  ( 20 . ) ) GOTO  3330 

1 

677 

CALL  1NTSTP(XE,:-10,E,XD) 

1 

67S 

CY=0 

679 

GOTO  2140 

680 

681 

C  BLOCK  20 

682 

C  Compute  and  Print  Initial  and  Final  Conditions 

1 

683 

C  -for  Current  Fragment  Trajectory 

684 

I 

685 

3330  DN=SQRT(DI <3)*DI (3)+DI <7)*DI (7) ) 

1 

686 

XR=DI (7) 

1 

687 

RN=SQRT (DN*DN-XR*XR> 

688 

R=INT (DN/ 100+1) 

1^ 

689 

IF(R.GT.MR)THEN 

[ 

690 

R=MR+1 

I. 

691 

TJ=TJ+1 

1 

692 

ENDIF 

1 

693 

XN(R)=XN(R)+FL0AT(N4)*Y2<INT( (90-IE(F) ) /ES) > /NR 

1. 

694 

YN(T,R)=YN(T,R)+FL0AT(N4)*Y2(INT<  (<^0-1E(:F)  )  /ES)  ) 

1 

695 

XA=ATAN(XR/RN) 

1 

696 

VF=SQRT(DI <2)*DI <2)+DI (4)*DI (4)+DI (6)*DI (6) ) 

1 

697 

CKE=FW (F) *VF>VF/450436. 

1 

698 

I F ( CKE . GT . 9999 . 9 ) CKE=9999 . 9 

1 

699 

IF (.NOT. ( (T.LE.NP) .AND. (NP.GT.O. ) 1 ) GOTO  3450 

1 

700 

WRITE( 1 ,8aO)F, YE,FW(F)  ,AM (F)  ,NINT(XV)  ,D1 ,NINT  <DN)  , OF, CKE, D I < 1 )  (E 

1 

701 

■t*B)  ,NINT<RN)  ,NINT(XR)  ,XA,NINT(XD)  ,AR2(F)  ,HD,RB 

1 

702 

3450  CONTINUE 

703 

DO  3490  R=i,NR 

1 

704 

TP<R)=TP(R)+(1-PT(R) )/NR 

1 

705 

HP(R)=HP(R)+<1-PH(R) ) /NR 

1 

706 

3490  CONTINUE 

707 

WRITEd  ,*)CHAR(1B) 

708 

709 

IF (RZ.EQ. 1 ) GOTO  1160 

710 

711 

GOTO  1169 

712 

713 

C  BLOCK  21  -  Sort  -for  Max,  Min,  and  F’ercentiles 

714 

715 

C  BLOCK  21 A 

716 

C  Max  and  Min  Number  o-f  Final  Impacts 

717 

718 

3570  DO  3700  R= 1 , MR 

1 

719 

IFCNR.GT.  DGOTO  3620 

1 

720 

NBMIN(R)=YN(i,R) 

1 

721 

N9MAX (R)=YN<1 ,R)  ' 

1 

722 

GOTO  3700 

1 

723 

3620  DO  3680  1=1 , INT (NR) -1 

724 

DO  3670  J=I,1,-1 

725 

IF<YN(J,R) .LE.YN(J+1 ,R) )GOTO  3680 

726 

T5=YN  J,R) 

3 

727 

YN(J,'  '=YN<J  +  1  ,R) 

728 

YN(T-'  '  =T5 

5. 
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3670  CONTINUE 
3680  CONTINUE 

N8MIN<R)=YN(1 ,R) 

N9MAX(R>=YN(INT<NR) ,R; 

3700  CONTINUE 

C  BLOCK  21 B 

C  Ma>;  ,  Min  and  Percentile  Hazard  Density 

DO  3900  R= 1 , MR 
I F  <  NR . GT . 1 ) GOTO  3800 
D7MIN(R)=D6H(1 ,R) 

D8MAX  <R) =D6H< 1 ,R) 

D5(R)=D6H(1 ,R) 

D9<R)=D6H(1 ,R) 

GOTO  3900 

3800  DO  3850  1=1 , INT (NR) -1 
DO  3840  J=I , 1 ,-l 

IF(D6H(J,R) .LE.D6H<J+1 ,R) ) GOTO  3850 
T5=D6H(J,R) 

D6H(J,R)=D6H<J+1 ,R) 

D6H(J+1 ,R)=T5 
3840  CONTINUE 
3850  CONTINUE 

D7MIN(R)=D6H(1 ,R) 

D8MAX(R)=D6H(INT<NR) ,R) 

P5  =  NR  *  .5 
P9  =  nR  *  PCTD 

IF(P5.NE. INT(P5) )  P5  =  INT(P5)  +  1. 

IF(P9.NE. INT(P9) )  P9  =  INT(P9)  +  1. 

IF(P5.LT. 1. )  P5  =  1. 

IF(P9.LT. 1. )  P9  =  1. 

D5(R)  =  D6H(INT(P5) ,R) 

D9(R)  =  D6H(INT(P9) ,R) 

3900  CONTINUE 

C  BLOCK  21 C 

C  Sort  Probability  o-f  Not  Hitting  -for  a  Single  Unit 

DO  4020  R=1,MR 
IF  (NR.EQ. 1. )G0Ta  4020 
DO  4010  1=1, INT (NR) -1 
DO  4013  J=1 ,1,-1 

IF  (PX (J,R) . LE.PX (J+1 ,R) )G0T0  4010 
T5=PX (J ,R) 

PX(J,R)=PX(J+1,R) 

PX  (J  +  1 ,R) =T5 
4013  CONTINUE 
4010  CONTINUE 


4020  CONTINUE 
C  BLOCK  22 

C  Comoute-and  Print  Average  Number  Density  and  P-Hit;  and  Number  o-f 
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785  C  Final  Impacts  for  Given  Distance  Increment  and  Number  of  Units 

786 

787  DO  5 1 30  R I  =  1  00 , 4(1)0 ,  1 00 

788  RI2=RI/100 

789  DO  4280  R=1,MR/RI2 

790  DO  4260  J=1,RI2 

791  K=RI2* (R-1 ) +J 

792  KW=K-.5 

793  SUM=SUM+KW 

794  TN(R)=TN(R)+NT':K) 

795  TD  (R)  =  <TD  (R)  *  (SLiM-KW)  +DT  (K)  *KW)  /SUM 

796  FTP  <R)  =  (FTP  (R)  *  (SUM-KW)  +TP  (K)  *k:W)  /SUM 

797  HN (R) =HN <R) +NH (K) 

798  HD  <R)  =  (HD ( R ) * ( SUM-KW ) +DH ( K ) *KW ) /SUM 

799 

800 
801 
802 

803  X7DMIN (R) =( X7DM I N ( R )*( SUM-KW ) +D7MI N ( K ) *KW ) /SUM 

804  X8DMAX  (R)  =  (X8DMAX  (R)  k- (SUM-KW)  +D8MAX  (K)  #KW)  /SUM 

805  X5D(R)  =  (X5D(R)  *  (SUM  -  KW)  4-  D5(K)  *  K.W)  /  SUM 

806  X9D  (R)  =  (  X9D  (R)  *  (SUM-KW)  h-D9  (K)  *KW).(SUM 

807  FHP  ( R )  =  ( FHP  ( R )  *  ( SUM-KW )  4-HP  ( K )  *KW )  /SUM 

808 

809  X7PMIN (R)  =  (X7PMIN (R) * (SUM-KW)  4-  ( 1-PX ( INT (NR)  ,K>  **FL0AT (N4)  ) *KW) /SUM 

810  X8PMAX  (R)  =  (X8PMAX  (R)  *  (SUM-KW)  4- ( 1-PX  ( 1  ,K)  ■»( AFLOAT  (N4)  )  *I<W)  /SUM 

81 1 
812 

813 

814 

815 

816 

817 

818  P5  =  NR  *  .5  4-  1. 

819  P9  =  NR  *  (1.  -  PCTD)  4-  1. 

820  IF(P5.NE. INT(P5) )  P5  =  INT(P5) 

821  IF(P9.NE. INT(P9) )  P9  =  INT(P9) 

822  IF (PCTD. EQ. 0.0)  P9  =  NR 

823  X5P(R)  =  (  X5P(R)*  (SUM-KW)  4- (l.-pX(  INT  (P5)  ,K)x»FL0AT(N4)  )*KW) /SLIM 

824  X9P(R)  =  (X9F(R)-m  (SUM-KW)4-(1.-PX(INT(P9)  ,K)*4^FLDAT(N4)  )*KW)/SUM 

825  TI  (R)=TI  (R)4-XN(K) 

826  TeMIN(R)  =T8MIN(R)  4-N8MIN  (K) 

827  T9MAX  (R)=T9MAX  (R)4-N9MAX  (K) 

828  4260  CONTINUE 

829  SUM=0. 

830 

831 

832  4280  CONTINUE 

833  RI2=RI2*100 

834  MR=MR«100 

835  WRITEd  ,-i4)CHAR(15) 

836  WRITEd , ' (/10X,A,5X,A,I4,A,5X,A, 15/) ' ) 'TABLE  1 ' , ' I ncrement  =  ',RI, 

837  t'  f eet Number  of  Units=  ' ,N4 

838  WRITE (1,890) 

839  WRITEd  ,900)  AS 

040  WRITE (1,910) 
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841  DO  4380  R=1,MR/RI 

842  WRITE (1, 920) RI*(R-1) ,RI*R,TN(R> ,TD(R> ,FTP(R) ,HN(R) ,HD(R) ,FHP(R) , T8 

843  fMIN (R) ,TI (R) ,T9MAX <R) 

844  4380  CONTINUE 

845  WRI TE  ( 1  ,  '  < /7X  ,  A  ,  1 4  ,  A  ,  14/ / )  '  )  '  Number  o-f  trajectories  vjith  distance 

846  Tgreater  than  ',MR,'  -feet=',TJ 

847 

848  C  BLOCK  23 

849  C  Print  Hazard'  Density  and  Probability  ot  Hit  -for 

850  C  Number  o-f  Units  Selected 

851 

852  RI2=RI/100 

853  MR=MR/100 

854  WRITEd  ,  '  (//10X,A,  10X,A,  I4,A,  10X,A,  15//)  '  )  'TABLE  2  '  ,  '  IncrBment= 

855  fRI , '  f eet Number  of  Units=  ',N4 

856  WRITE (1,982) 

857  WRITEd  ,984)  PCT,PCT 

858  DO  4450  R=1,MR/RI2 

859  WRITEd,  986)  RI*(2*R-1)/2,X8DMAX(R)  ,X9D(R)  ,X5D(R)  ,X7DMINCR)  ,  X8PNAX  ( 

860  fR) ,X9P(R) ,X5P<R) ,X7PMIN(R) 

861  4450  CONTINUE 

862 

863  C  BLOCK  24 

864  C  Compute  and  Print  Number  of  Units  Required  to  Just  Exceed 

865  C  Hazard  Densitv'  and  P-Hit  Criteria 

866 

867  WRITE d , ' ( //20X , A, 10X,A, I4,A/) ' ) 'TABLE  3 ' , ■ Increment=  ',RI,'  feet' 

868  WRITE (1,970) 

869  WRITE (1,940) 

870  WRITEd  ,950)  PCT,PCT 

871  DO  4610  R=1,MR/RI2 

872  IFCXSDMAXCR) .EQ.O.O)  THEN 

873  Y7DMIN(R)  =  999999 

874  ELSE 

875  Y7DMIN(R)  =  DC/X8DMAX  <R) -itFLOAT  (N4)  +  .01 

876  ENDIF 

877  IF (X9D (R) . EQ.O.O)  THEN 

878  Y9D(R)  =  999999 

879  ELSE 

880  Y9D<R)  =  DC/X9D(R)*FL0AT<N4)  +  .01 

881  ENDIF 

882  IF  (y.5D(R)  .EQ.O.O)  THEN 

883  Y5D<R)  =  999999 

884  ELSE 

885  Y5D(R)  =  DC/X5D  (R)  ^tFLOAT  (N4)  +  .01 

886  ENDIF 

887  IF (X7DMIN(R) .EQ.O.O)  THEN 

888  Y8DMAX(R)  =  999999 

889  ELSE 

890  Y8DMAX(R)  =  DC/X7DMIN  (R) -x-FLOAT  <N4)  +  .01 

891  ENDIF 

892 

893 

894  4610  CONTINUE 

895  RI2=RI/100 

896  DO  4860  R=1,MR/RI2 
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905  4730 

906 

907 
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924 

925 
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DO  4730  J=1,RI2 
K  =  RI2  *  (R-1)  H-  J 
KW  =  K  -  .5 
SUM  =  SUM  +  KW 

Z5P(R)  =  (Z5P(R)  >^(SUN-KW)  +  (1.-PX  (INT<P5)  ,K)  )*K:W)  /BUM 

Z7PMIN(R)  =  (Z7PMIN<R>  *  (SUM  -  KW)  +  (1  -  PX  (  I'NT  (NR)  ,K)  )  *  KW) /SUM 

Z8PMAX(R)  =  (ZBPMAX(R)  *  (SUM  -  KW)  +  (1  -  PX(1,K))  *  KW)  /  SUM 

Z9P(R)  =  (Z9P(R)*(SUM-KW)  +  (1.-PX  (INT(P9)  ,K)  )*KW)  /SLIM 

CONTINUE 

SUM=0. 

I F ( Z8PMAX ( R ) . EQ . 0 . 0 )  THEN 
NP2(1,R)  =  999999 
ELSEIF (Z8PMAX (R) . EQ. 1 . )  THEN 
NP2(1,R>  =  .01 
ELSE 

NP2(1,R)=L0B(1.-PC)/L0G(1.-Z8PMAX(R) )  +  .01 
END  IF 

IF(79P(R) .EQ.0.0)  THEN 
NP2(2,R)  =  999999 
ELSEIF (Z9P (R) . EQ. 1 . )  THEN 
NP2(2,R)  =  .01 
ELSE 

NP2(2,R)=L0G(1.-PC)/L0G(1,-Z9P(R) )  +  .01 
END  IF 

IF(Z5P (R) .EQ.O.O)  THEN 
NP2(3,R)  =  999999 
ELSEIF (Z5P (R) . EQ. 1 . )  THEN 
NP2(3,R)  =  .01 
ELSE 

NP2(3,R)=LaG(l.-PC)/L0G(l.-Z5P(R) )  +  .01 
END  IF 

IF(Z7PMIN(R) .EQ.0.0)  THEN 
NP2(4,R)  =  999999 
ELSEIF(Z7PMIN(R) .EQ. 1. )  THEN 
NP2(4,R)  =  .01 
ELSE 

NP2(4,R)=L0G(1.-PC)/L0G(1.-Z7PMIN(R) )  +  ,01 
ENDIF 


2  940  4860  CONTINUE 

1  941  RI2=RI2*100 

1  942  MR=MR*100 

1  943  DO  4990  R=1,MR/RI 

2  944  WRITE( 1 ,960) RI*(2*R-1 ) /2, Y7DMIN(R) , Y9D(R) , Y5D(R) , YBDMAX (R) ,NP2 (1 ,R 

2  945  f ) ,NP2(2,R) ,NP2(3,R) ,NP2(4,R) 

2  946  4990  CONTINUE 

1  947  WRITE (1,*> 

1  948  WR I TE  ( 1  ,  '  (  17X  ,  A)  '  )  '  The  999999.00  entries  signi-fy  that  the  number  o 

1  949  t-f  units  required  is  infinite,' 

1  950  WRITE ( 1 (29X , A) ')' that  is,  the  Hazard  Density  and  P-hit  are  both 

1  951  -^zero. 

1  952  DO  5080  R=1,MR/100 
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2  953 

TN (R) =0. 

2  954 

HN(R) =0. 

2  955 

TI  (R)=0. 

2  956 

T8MIN(R)=0. 

2  95? 

T9MAX(R>=0. 

2  958 

5080 

CONTINUE 

1  959 

WRITE (1 ,980) DC, 

PC 

1  960 

MR=MR/100 

1  961 

5130 

CONTINUE- 

962 

WRITE (1 ,*)CHAR(18) 

963 

CLOSE ( 1 ) 

964 

END 

Name 

Type 

O-f-fset  P 

Cl  ass 

ABS 

INTRINSIC 

AE 

REAL 

0 

LARGE 

ALT 

REAL 

1922 

ALTMAX 

REAL 

248 

ALTMIN 

REAL 

244 

AM 

REAL 

0 

LARGE 

AQ 

REAL 

2190 

AR2 

REAL 

0 

LARGE 

AS 

INTEGER*4  ?6 

ATAN 

INTRINSIC 

AX 

REAL 

2050 

AY 

REAL 

2046 

AZ 

REAL 

2066 

B 

REAL 

60 

BB 

REAL 

68 

BQ 

REAL 

1918 

CD 

REAL 

26?8 

CH 

REAL 

2006 

CHAR 

INTRINSIC 

CKE 

REAL 

2162 

CL 

REAL 

20 1 0 

COS 

INTRINSIC 

CX 

INTEGER*4  2090 

CY 

INTEGER*4  1966 

D1 

REAL 

2014 

D2 

REAL 

2018 

D3 

REAL 

2022 

D4 

REAL 

2026 

D5 

REAL 

0 

LARGE 

D6H 

REAL 

0 

LARGE 

D?MIN 

REAL 

38800 

LARGE 

D8MAX 

REAL 

39188 

LARGE 

D9 

REAL 

395?6 

LARGE 

DC 

REAL 

280 

DD 

REAL 

1986 

DF 

REAL 

2094 

DH 

REAL 

28 

LARGE 

DI 

REAL 

0 

LARGE 

DLT 

REAL 

2030 

DM 

REAL 

88 

DN 

REAL 

2194 

Page  18 
11--21-87 
09:03:08 

Microso-ft  FORTRAN??  V3.31  August  1985 


B-21 


NSWC  TR  87-59 


D  Line#  1  ? 

DO 

REAL 

T) 

LARGE 

DR 

REAL 

6# 

DS 

REAL 

388 

LARGE 

DT 

REAL 

0 

LARGE 

DW 

REAL 

26# 

DX 

REAL 

2146 

E 

REAL 

195# 

EA 

REAL 

2186 

EC 

REAL 

***** 

EE 

REAL 

1990 

EQ 

REAL 

0 

LARGE 

ES 

REAL 

?2 

EXP 

INTRINSIC 

EY 

REAL 

2170 

EZ 

INTEGER*^ 

1930 

F 

INTEGER*4 

184# 

FI 

INTEGER*# 

1876 

F2 

INTEGER*# 

1880 

F3 

INTEGER*# 

188# 

F4 

INTEGER*# 

1888 

F5 

INTEGER*# 

1892 

F6 

INTEGER*# 

1896 

F? 

INTEGER*# 

1900 

FB 

REAL 

1970 

FHP 

REAL 

0 

LARGE 

FL 

REAL 

388 

LARGE 

FLOAT 

INTRINSIC 

FTP 

REAL 

1388 

LARGE 

FW 

REAL 

1776 

LARGE 

G 

REAL 

#8 

GX 

REAL 

2150 

H9 

CHAR* 19 

388 

LARGE 

HD 

REAL 

0 

LARGE 

HM 

REAL 

80 

HM 

REAL 

0 

LARGE 

HO 

REAL 

1950 

HP 

REAL 

0 

LARGE 

HS 

REAL 

20# 

HX 

REAL 

2154 

I 

IDINT 

INTEGER*# 

1832 

INTRINSIC 

IE 

REAL. 

0 

LARGE 

I  NT 

INTRINSIC 

IV 

REAL 

2000 

LARGE 

J 

INTEGER*# 

1856 

K 

INTEGER*# 

227# 

K1 

REAL 

KZ 

REAL 

36 

K4 

REAL 

#0 

K5 

REAL 

## 

K9 

REAL 

52 

k:e 

REAL 

276 

KK 

REAL 

2082 

K.M 

REAL- 

2038 

KW 

REAL 

2278 

LE 

REAL 

203# 
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D  Line# 

1  7 

LOG 

INTRINSIC 

Ml 

REAL 

16 

M2 

REAL 

20 

M3 

REAL 

24 

MA 

REAL 

2130 

MN 

REAL 

2074 

MR 

INTEGER*4 

'P'7'7 

MRA 

REAL 

268 

N1 

REAL 

1994 

N2 

REAL 

1998 

N4 

INTEGER*4 

'7  ^  *7 

N8MIN 

REAL 

‘  ^  0 

LARGE 

N9MAX 

REAL 

388 

LARGE 

NAM 

CHAR* 14 

1 18 

NF 

INTEGER*4 

220 

NH 

REAL 

776 

LARGE 

MINT 

INTRINSIC 

NL 

INTEGER*4 

2716 

LARGE 

NP 

INTEGER*4 

240 

NP2 

REAL 

ai64 

LARGE 

NR 

REAL 

236 

NT 

REAL 

0 

LARGE 

NX 

REAL 

2158 

P 

REAL 

2098 

P5 

REAL 

2242 

P9 

REAL 

2246 

PA 

REAL 

1852 

PC 

REAL 

284 

PCT 

INTEGER*4 

224 

PCTD 

REAL 

228 

PH 

REAL 

0 

LARGE 

PI 

REAL 

56 

PT 

REAL 

0 

LARGE 

PW 

REAL 

92 

PX 

REAL 

0 

LARGE 

Q 

CHAR*14 

1 00 

QE 

REAL 

2178 

QV 

REAL 

2174 

R 

INTEGER*4 

1868 

RB 

INTEGER*4 

1946 

RI 

INTEGER*4 

2258 

RI2 

Ih,TEGER*4 

2262 

RL 

INTEGER*4 

1974 

RN 

REAL 

2202 

RND 

REAL 

FUNCTION 

RO 

REAL 

2070 

RZ 

INTEGER*4 

232 

SI 

REAL 

2102 

S2 

REAL 

2106 

S3 

REAL 

2110 

SA 

REAL 

2114 

S5 

REAL 

21 18 

S6 

REAL 

2122 

SCMAX 

REAL 

200 

SCMIN 

REAL 

196 

SIGS 

REAL 

200 
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D  Line#  1  7 

SIN 

SORT 

SUM  REAL 

2282 

T 

INTEGER*4 

1860 

T5 

REAL 

2230 

TSMIN 

REAL 

0 

T9MAX 

REAL 

388 

TA 

REAL 

2126 

TAN 

TD 

REAL 

0 

TI 

REAL 

388 

TJ 

INTE6ER*4 

2206 

TN 

REAL 

776 

TP 

REAL 

1164 

TS 

CHAR*64 

132 

UDUM 

REAL*a 

300 

USE 

REAL*8 

288 

0 

REAL 

1982 

VA 

REAL 

2182 

VF 

REAL 

2214 

VP 

REAL 

2042 

VQ 

REAL 

0 

VR 

REAL 

2166 

VS 

REAL 

28 

VXP 

REAL 

2054 

VYP 

REAL 

2058 

VZP 

REAL 

2062 

WD 

REAL 

260 

WM 

REAL 

84 

NS 

REAL 

1926 

WSMAX 

REAL 

256 

WSMIN 

REAL 

252 

X5 

INTEGER*4 

216 

X5D 

REAL 

0 

X5P 

REAL 

388 

X7DMIN 

REAL 

0 

X 7PM IN 

REAL 

0 

X8DMAX 

REAL 

388 

X8PMAX 

REAL 

0 

X9D 

REAL 

776 

X9P 

REAL 

1 164 

XA 

REAL 

2210 

XD 

REAL 

1978 

XE 

REAL 

1958 

XK 

REAL 

0 

XL 

INTEGER*4 

1934 

XN 

REAL 

112 

XP 

REAL 

2134 

XR 

REAL 

2198 

XV 

REAL 

2002 

Y 

REAL 

296 

Y2 

REAL 

0 

Y5D 

REAL 

144 

Y7DMIN 

REAL 

0 

Y8DMAX 

REAL 

388 

Y9D 

REAL 

776 

Mi  croso-f  t 

INTRINSIC 

INTRINSIC 


LARGE 

LARGE 

INTRINSIC 

LARGE 

LARGE 

LARGE 

LARGE 


LARGE 


LARGE 

LARGE 

LARGE 

LARGE 

LARGE 

LARGE 

LARGE 

LARGE 


LARGE 

LARGE 


LARGE 

LARGE 

LARGE 

LARGE 

LARGE 
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D  Line#  1 

7 

YE 

REAL 

1962 

YN 

REAL 

0 

Z5P 

REAL 

0 

Z7PMIN 

REAL 

38800 

Z8PMAX 

REAL 

39188 

Z9P 

REAL 

39576 

ZP 

REAL 

2138 

ZZP 

REAL 

2142 

Microsa-f  t 

LARGE 

LARGE 

LARGE 

LARGE 

LARGE 
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965  C  BLOCK  25 

966  C  Function  Subprogram  to  Calculate  Random  Number 

967 

968  FUNCTION  RND(UIX) 

969  DOUBLE  PRECISION  UA , UP , UI X ,UI Y , UB15 , UB16 , UXHI , UXALO , ULEFTLO , UFHI , 

970  .tUK 

97 1  DATA  UA/ 1 6807 . DO/ , UB 1 5/32768 . DO/ , UB 16/65536 . DO/ , UP/2 1 47483647 . DO/ 

972  IF(UIX.EG.O)UIX=UIY 

973  7000  UXHI=UIX/UB16 

974  UXHI=UXHI-DMaD(UXHI,l.DO) 

975  UXAL0=(UIX-UXHI*UB16)*UA 

976  ULEFTL0=UXAL0/UB16 

977  ULEFTLO=ULEFTLO-DMOD ( ULEFTLO , 1 . DO ) 

978  UFHI=UXHI*UA+ULEFTLO  ^ 

979  UK=UFHI/UB15 

980  UK=UK-DM0D  <  UK , 1 . DO ) 

981  UIX=( <  <UXAL0-ULEFTL0*UB16)-UP)  +  (UFHI-UK*UBi5)*UB16)+UK 

982  IF(UIX.LT.O)UIX=UIX+UP 

983  UIY=UIX 

984  RND=INT( <U1 X«4. 656612B75D-10) *1D06) / 1D06 

985  IF<RND.EQ.0)GQVa  7000 

986  RETURN 

987  END 


Name 

Type 

0-f-fset  P 

Cl  ass 

DMOD 

INTRINSIC 

INT 

INTRINSIC 

UA 

REAL*8 

2314 

UB15 

REAL*8 

2322 

UB16 

REAL*8 

2330 

UFHI 

REAL*8 

2378 

UIX 

REAL*8 

0  * 

UIY 

REAL*8 

2346 

UK 

REAL*8 

2386 

ULEFTL 

REAL*8 

2370 

UP 

REALMS 

2oo>8 

UXALO 

REAL*8 

2362 

UXHI 

REAL*8 

2354 

988 

989  C  BLOCK  26 

990  C  Subroutine  -for  Selecting  Integration  Step 

991 

992  SUBROUTINE  INTSTP ( XE , HO , E , XD) 
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D  Line# 

993 

994 

995 

996 

997 
99B 
999 

1000 

1001 

1002 

1003 

1004 
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IF< (XE.LT.O. ) .AND. ( (HQ/SIN(-E) ) .BT.60. ) ) THEN 
XD=50. 

ELSEIF (XE.LT.O. ) THEN 

XD=AINT(HQ/SIN<-E) /1.2) 

ELSEIF (XE.LE. 70. ) THEN 

XD=AINT (-0.02492*XE*XE+2.20134*XE+18.a306) 

ELSE 

XD=50. 

END  IF 

6040  RETURN 
END 


Name 

Type 

Offset 

P 

Cl  ass 

AINT 

E 

REAL 

8 

¥■ 

INTRINSIC 

HO 

REAL 

4 

* 

SIN 

XD 

REAL 

12 

* 

INTRINSIC 

XE 

REAL 

0 

* 

Name 

Type 

Size 

Cl  ass 

INTSTP  SUBROUTINE 

MAIN  PROGRAM 

RND  REAL  FUNCTION 


Pass  One 


No  Errors 
1004  Source 


Detected 

Lines 
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The  glossary  is  arranged  in  alphabetical  order.  All  variables  begin  with  a  letter.  Second  and 
subsequent  characters  may  be  numbers.  Numbers  precede  letters;  for  example,  D3  would  precede  DA. 

There  are  three  types  of  variables  in  the  glossary  which  are  explained  as  follows; 

Flag  -  A  variable  used  to  Indicate  a  set  of  alternate  states.  For  example  the  variable  RZ  is  used  to 
indicate  the  selection  of  the  MONTE  CARLO  or  FULL  FACTORIAL  option.  When  RZ  equals  1  then  the 
MONTE  CARLO  path  is  followed  through  the  program.  When  RZ  equals  0  the  FULL  FACTORIAL  path  is 
followed. 

Index  -  Used  with  array  variables  to  designate  a  particular  element  in  the  array.  Often  the  index  is 
used  in  loops  to  assign  values  to  the  array  elements  as  necessary. 

Counter  -  Used  to  count  the  number  of  times  a  particular  action  has  occurred  and  sometimes  to 
designate  a  particular  element  in  an  array.  For  example,  the  replication  or  treatment  counter  (T)  is  used  to 
identify  the  number  of  the  current  replication  or  treatment  and  also  provides  an  index  for  such  variables  as 
PX  (T,R). 

Array  variables  have  either  one  or  two  indices  enclosed  by  parenthesis.  In  dimensioning  these 
variables  in  BLOCK-1,  the  maximum  number  of  elements  permitted  is  specified.  These  maximum  numbers 
of  elements  are  explained  as  follows;  x 

(97)  -Maximum  number  of  100-ft  range  increments  plus  1.  The  additional  element  is  used  to  store 
those  trajectories  which  have  ranges  greater  than  the  selected  maximum  computational  range  (MRA). 

(100)  -The  maximum  number  of  replications  or  treatments  allowed. 

(500)  -The  maximum  number  of  fragments  allowed. 

All  other  indices  are  explained  in  the  glossary  together  with  the  appropriate  array  variable. 

All  variables  beginning  with  the  letter  "U”  are  double  precision  and  used  in  the  random  number- 
generator.  Only  two  of  these  variables  are  defined  in  the  glossary.  The  remaining  variables  are  best 
explained  in  the  comments  to  the  test  listing  in  Appendix  F  and  the  referenced  document  specified  there. 

Throughout  most  of  the  glossary,  range  has  been  used  in  the  description  of  the  variables.  Range  (R) 
and  Distance  (DN)  are  the  same  when  there  is  no  crosswind.  With  crosswind,  distance  is  equal  to  the  square 
root  of  the  sum  of  squares  of  range  (R)  and  crossrange  (XR). 
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AE(500) 

ALT 

ALTMAX 
ALTMIN 
AM  (500) 
AQ 

AR2(500) 

AS 

AX 

AY 

AZ 


B 

BB 

BQ 


CD 

CH 

CKE 

CL 


-A- 

Defines  the  lower  limit  of  an  elevation  zone  (deg)  for  each  fragment 

Altitude  of  the  site  where  the  munitions  are  located.  A  random  variable.  A  constant 
when  ALTMIN  and  ALTMAX  are  the  same,  (ft) 

Maximum  altitude  of  sites  being  simulated,  (ft) 

Minimum  altitude  of  sites  being  simulated,  (ft) 

The  average  presented  area  to  mass  ratio  for  a  fragment,  (in. 2/lb) 

An  angle  used  to  calculate  the  range  and  cross-range  velocities  after  ricochet,  (radians) 

Defines  the  maximum  to  average  presented  area  ratio  for  each  fragment. 

Azimuth  sector  size.  Describes  the  angular  width  of  the  hazard  volume.  See  Figure  1 
where  AS=  10  deg. 

An  angle  in  radians.  Incorporates  wind  effects,  if  applicable,  and  is  used  to  calculate  the 
X  (range)  component  of  acceleration  in  the  Rtinge-Kutta  routine. 

An  angle  in  radians,  used  to  calculate  the  Y  (altitude)  component  of  acceleration  in  the 
Runge-Kutta  routine. 

An  angle  in  radians.  Incorporates  wind  effects,  if  applicable,  and  is  used  to  calculate  the 
Z  (cross-range)  component  of  acceleration  in  the  Runge-Kutta  routine. 

-B- 

A  constant  used  to  convert  degrees,  to  radians  or  radians  to  degrees. 

A  constant  equal  to  2*PI.  It  is  used  in  the  generation  of  normal  random  numbers  in 
BLOCK-8. 

Soil  constant  used  for  ricochet  calculations.  A  random  variable  between  ('.5  and  4.0.  A 
constant  when  SCMAX  and  SCMIN  are  the  same. 

-C- 

Fragment  drag  coefficient  which  is  a  function  of  Mach  Number.  The  function  is 
approximated  by  four  straight  lines.  This  is  a  random  variable. 

High  limit  of  uncertainty  for  the  low  subsonic  (MN  =  0.1)  drag  coefficient  at  a  particular 
value  of  AR2  (500). 

Computed  kinetic  energy  of  a  fragment  calculated  within  the  hazard  volume  to 
determine  whether  the  fragment  is  hazardous,  (ft-lbs) 

Low  limit  of  uncertainty  for  the  low  subsonic  (MN  =  0.1)  drag  coefficient  at  a  particular 
value  of  AR2  (500). 


C-4 


NSWC  TR  87-59 


CX 

CY 

Dl 

D2 

D3 

D4 

D5(97) 

D6H(100,97) 

D7MIN  (97) 

D8MAX  (97) 

D9  (97) 

DC 

DD 

DF 

DH  (97) 

Dl(7) 


A  flag  having  the  value  of  0  or  1.  Used  to  determine  the  range  increment  where  the 
fragment  goes  through  the  top  plane  of  the  hazard  volume  from  below.  This  action 
occurs  when  CX  equals  1  and  CY  equals  0. 

A  flag  having  the  value  of  0  or  I,  When  equal  to  zero,  the  fragment  is  below  the  top 
plane  of  the  hazard  volume.  When  equal  to  I,  the  fragment  is  above  this  plane. 

-D- 

The  drag  coefficient  for  a  particular  fragment  at  a  Mach  N  umber  of  approximately  0. 1 . 
This  a  random  variable.  The  dragcoefiicient  lies  between  a  Max  (CH)  and  a  Min  (CL) 
value.  This  is  the  anchor  point  for  constructing  the  four  straight  lines  which 
approximate  the  drag  curve  as  a  function  of  Mach  Number. 

Equals  Dl  +  0.2.  This  CD  point  at  Mach  Number  0.75  determines  the  first  straight  line 
drawn  from  D2  through  Dl  and  then  to  the  CD  axis. 

Equals  Dl  +  0.65.  This  CD  point  at  Mach  Number  1.5  determines  the  second  straight 
line  drawn  from  D3  to  D2. 

Equals  Dl  +  0.5.  This  CD  point  at  Mach  Number  2.5  determines  the  third  straight  line 
drawn  from  D4  to  D3.  The  fourth  straight  line  above  Mach  Number  2.5  has  a  constant 
CD  value  of  Dl  +  0.5.  x. 

The  50th  percentile  value  of  hazardous  density,  for  the  number  of  units  specified,  for 
each  100-ft  increment  of  range  (Frags/ft2) 

Hazardous  fragment  density  by  replication  or  treatment  for  each  100-ft  range  increment 
for  the  number  of  units  specified.  (Frags/ft2) 

The  minimum  hazard  density  for  a  given  100-ft  range  increment  for  the  number  of  units 
specified.  (Frags/ft2) 

The  maximum  hazard  density  for  a  given  100-ft  range  increment  for  the  number  of  units 
specified.  (Frags/ft2) 

The  hazard  density  for  the  percentile  level  chosen  for  the  number  of  units  specified. 
(Frags/ft2) 

Hazard  density  criterion.  Currently  one  fragment  per  600  ft2  for  personnel.  For  other 
targets  use  one  divided  by  100  times  the  presented  area  of  the  target. 

A  value  calculated  and  used  in  the  generation  of  random  normal  numbers  for  defining  a 
value  of  the  magnitude  of  initial  fragment  velocity  in  the  MONTE  CARLO  option. 

A  range  difference  value  used  to  calculate  the  range  where  the  fragment  pierces  the 
hazard  volume  when  the  trajectory  is  in  an  upward  direction,  (ft)  See  BLOCK-17 

The  average  hazard  density  for  each  100-ft  increment  of  range  for  the  number  units 
specified.  (Frags/ft2) 

Seven  variables  for  time,  velocity  and  displacement  used  in  the  Runge-Kutta  routine. 

Dl  (1)  Elapsed  time  of  flight,  (s)  (Not  in  basic  Runge-Kutta  calculations) 
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DLT 

DM 

DN 

DO  (7) 


DR 

DS{7) 

DT  (97) 

DW 


DI  (2)  The  mugniluciooftheruni»e(X  component)  of  velocity,  (ft/s) 

Dl(3)  Range  measured  along  the  X  component  of  displacement,  (ft) 

DI  (4)  The  magnitude  of  the  altitude  (Y  component)  of  velocity,  positive  upwards  and 
negative  downwards  (ft/s). 

DI  (5)  Altitude  measured  along  the  Y  component  of  displacement,  positive  above  ground 
level  and  negative  below,  (ft) 

DI  (6)  The  magnitude  ofthe  crossrange  (Z  component)  of  velocity,  (ft/s) 

DI  (7)  Crossrange  measured  along  the  Z  component  of  displacement,  (ft) 

The  time  increment  of  integration  in  the  Runge-Kutta  routine.  It  is  variable  since  it  is 
based  on  a  distance  increment  and  the  current  velocity,  (s) 

The  depth  measurement  of  the  target.  For  an  average  male  soldier,  this  dimension  is 
0.55  ft. 

The  distance  of  fragment  travel  in  the  ground  plane.  Equal  to  the  square  root  of  the  sum 
of  squares  of  final  range  and  crossrange.  Distance  equals  range  when  there  is  no  cross¬ 
range  component.  (ft) 

Variables  for  velocity  and  acceleration  used  in  the  Runge-Kutta  routine. 

DO  (1)  Not  used. 

DO  (2)  Magnitude  of  the  acceleration  in  the  range  (X  component)  direction.  (ft/s‘-) 

DO  (3)  Magnitude  of  the  velocity  in  the  range  (X  component)  direction  (ft/s).  Not 
currently  used. 

DO  (4)  Magnitude  of  the  acceleration  in  the  altitude  (Y  component)  direction.  (ft/s2) 

DO  (5)  Magnitude  of  the  velocity  in  the  altitude  (Y  component)  direction  (ft/s).  Not 
currently  used. 

DO  (6)  Magnitude  of  the  acceleration  in  the  crossrange  (Z  component)  direction  (ft/s-). 

DO  (7)  Magnitude  of  the  velocity  in  the  crossrange  (Z  component)  direction  (ft/s).  Not 
currently  used. 

A  constant  for  converting  degrees  to  radians  or  radians  to  degrees. 

A  variable  used  to  hold  the  values  of  velocity  at  increment  start  for  the  three  component 
directions  in  the  Runge-Kutta  routine.  Only  indicies  2,  4,  6  are  used,  (ft/s) 

Average  total  fragment  density  in  each  100-fl  range  increment.  Includes  both 
hazardous  and  nonhazardous  fragments  for  the  number  of  units  specified.  (Frags/ft^) 

The  wind  direction  saved  in  degree  notation  for  output. 
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Running  average  of  total  fragment  density  at  multiple  points  within  one  100-ft  range 
increment.  (Frags/ft‘-) 


-K- 

Elevation  angle.  Plus  above  the  horizontal  and  minus  below  the  horizontal,  (radians) 

The  angle  of  ricochet  in  the  same  plane  as  the  incident  angle,  (radians) 

A  value  used  in  the  generation  of  random  normal  numbers  for  use  with  the  uncertainty 
of  fragment  initial  velocity. 

The  six  equations  for  calculating  ricochet  angle  as  a  function  of  incident  angle  for 
different  soil  constants.  See  BLOCK-19  and  Appendix  E. 

The  size  of  the  elevation  angle  zone  calculated  from  the  polar  zone  size.  The  size  used 
currently  is  10  deg.  It  depends  on  the  size  of  polar  zones  used  in  the  small-scale  arena 
tests.  The  zone  size  determines  the  range  of  uncertainty  in  initial  elevation  angle,  (deg) 

The  absolute  value  of  the  incident  angle  used  for  ricochet  calculations,  (deg) 

Flag  which  determines  whether  there  is  a  cross-range  component.  Effects  Runge-Kutta 
calculations. 


-F- 

An  index  and  counter  for  numbering  the  fragments  and  controlling  the  fragment  loop 
(BLOCK-7). 

A  counter  for  specifying  the  Factor  Level  currently  in  use  in  the  FULL  FACTORIAL 
option.  This  counter  pertains  to  the  SOIL  CONSTANT  factor. 

A  counter  for  specifying  the  Factor  Level  currently  in  use  in  the  FULL  FACTORIAL 
option.  This  counter  pertains  to  the  Height  of  Origin  factor. 

A  counter  for  specifying  the  Factor  Level  currently  in  use  in  the  FULL  FACTORIAL 
option.  This  counter  pertains  to  the  Elevation  Angle  factor. 

A  counter  for  specifying  the  Factor  Level  currently  in  use  in  the  FULL  FACTORIAL 
option.  This  counter  pertains  to  the  Initial  Velocity  factor. 

A  counter  for  specifying  the  Factor  Level  currently  in  use  in  the  FULL  FACTORIAL 
option.  This  counter  pertains  to  the  site  Altitude  factor. 

A  counter  for  specifying  the  Factor  Level  currently  in  use  in  the  FULL  FACTORIAL 
option.  This  counter  pertains  to  the  Wind  Speed  factor. 

A  constant  used  in  calculating  the  kinetic  energy  of  a  fragment.  It  is  equal  to  the 
fragment  weight  in  grains  divided  by  (2*7000*0).  (Ib-s2  /ft) 

Running  weighted  average  hazard  probability  of  hit  for  the  number  of  units  specified 
and,  in  turn,  for  each  of  the  four  range  increments  (100, 200, 300,  and  400  fl)  in  the 
output. 
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FL(10,25) 

[•TP  (97) 

FW  (500) 

G 

GX 

H9(10) 

HD  (97) 

HM 

HN  (97) 

HO 

HP  (97) 

HS 

HX 


1 

IE  (500) 
INTSTP 
IV  (500) 


Factor  Level  for  use  in  the  FULL  FACTORIAL  option.  The  first  index  identifies  the 
factor.  The  second  index  identifies  the  current  level  in  use  for  a  particular  treatment. 

Running  weighted  average  probability  of  hit  including  hazardous  and  nonhazardous 
fragments  for  the  number  of  units  specified  and,  in  turn,  for  each  of  the  four  range 
increments  (100,  200,  300,  and  400  ft)  in  the  output. 

Fragment  weight  for  each  fragment,  (grains) 

-G- 


Acceleration  due  to  gravity.  (ft/s2) 

Running  average  of  the  number  of  hazardous  fragments  in  a  particular  100-ft  range 
increment.  It  is  possible  to  have  a  fragment  hazardous  at  one  point  in  the  100-ft 
increment  and  to  be  nonhazardous  at  a  later  point  in  the  same  increment. 


-H- 


A  character  array  variable  which  contains  the  names  of  the  factors  in  the  FULL 
FACTORIAL  option.  ^ 

Running  weighted  average  hazardous  density  for  the  number  of  units  specified.  Applies 
to  100,  200,  300,  and  400  ft  range  increments  used  in  the  output  tables.  (Frags/ft^) 

Height  measurement  of  the  target.  For  an  average  male  soldier  this  dimension  is  5.72  ft. 

Accumulated  average  hazardous  number  of  fragments.  Applies  to  100,  200, 300,  and 
400  ft  range  increments  used  in  the  output  tables. 

Height  above  the  ground  at  which  a  fragment  is  ejected  from  the  ammo  stack,  (ft) 

Probability  of  hitting  the  target  with  hazardous  fragments  for  each  100-ft  range 
increment.  The  value  is  averaged  over  all  replications  or  treatments. 

Height  of  the  ammo  stack  above  the  ground,  (ft) 

Running  average  of  the  hazardous  density  for  the  number  of  i  ..its  specified.  The 
average  is  for  the  points  occurring  in  a  particular  100-ft  range  increment.  (Frags/ft2) 


-I- 


Loop  index.  Used  more  than  once  when  there  is  no  conflict  between  loops. 
Lower  limit  of  the  fragment  elevation  zone,  (deg) 

Subroutine  for  defining  the  Runge-Kutta  displacement  integration  step. 
Average  magnitude  of  the  fragment  initial  velocity  vector,  (fl/s) 
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-J- 


J  Loop  index.  Used  more  than  once  where  there  is  no  conflict  between  loops. 

-K- 

K  Loop  index.  Used  more  than  once  where  there  is  no  conflict  between  loops. 

K1  Constant  used  in  the  exponent  of  the  Mach  Number  equation,  (ft/s) 

K3  Air  density  at  sea  level  divided  by  2.  Division  by  2  accounts  for  the  factor  1/2  in  the  drag 

equation.  (Ib/ft3) 

K4  Constant  used  in  the  exponent  of  the  air  density  equation,  (ft) 

K5  Constant  (144)  used  to  convert  the  average  presented  area  of  the  fragment  from  square 

inches  to  square  feet. 

K9  Constant  used  to  convert  fragment  weight  in  grains  to  pound-mass  units  for  use  in  the 

kinetic  energy  hazard  criterion  calculatidhs. 

KE  Hazard  kinetic  energy  criterion.  (ft-!bs) 

K  K  Acceleration  along  the  fragment  velocity  vector  due  to  air  drag.  (ftys2) 

KM  Constant  (0.5  or  1)  used  as  coefficients  for  the  Runge-Kutta  intermediate  velocities, 

KW  Weighting  factor  used  when  combining  1 00-ft  increments  into  larger  increments  in  the 

output  tables.  The  weighting  factor  is  equal  to  the  mid-range  of  each  1 00-ft  increment  in 
hundreds  of  ft. 

-L- 

LE  The  absolute  value  of  the  elevation  angle  at  the  end  of  each  Runge-Kutta  integration 

step  (radians) 

-M- 

M 1  Subsonic  Mach  Number  pivot  point  used  in  constructing  the  straight  line 

approximations  to  the  drag  curve.  Currently  equal  to  0.75. 

M2  Transonic  Mach  Number  pivot  point  used  in  constructing  the  straight  line 

approximations  to  the  drag  curve.  Currently  equal  to  1.5. 

M3  Supersonic  Mach  Number  pivot  point  used  in  constructing  the  straight  line 

approximations  to  the  drag  curve.  Currently  equal  to  2.5. 
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MA 

MN 

MR 

MRA 

N'l 

N2 

N4 

N8MIN  (97) 

N9MAX(97) 

NAM 

NF 

NH  (97) 

NL(IO) 

NP 

NP2  (4,  97) 

NT  (97) 


The  presented  area  of  the  target  in  the  plane  perpendicular  to  the  fragment  trajectory. 
(ft2) 

Mach  Number 

Maximum  computation  range  in  ft  or  hundreds  of  ft  depending  on  the  computation 
involved. 

Maximum  computation  range  best  specified  in  1200  ft  multiples,  (ft) 


-N- 


A  generated  random  normal  number. 

A  second  generated  random  normal  number.  The  random  normal  number  generator  is 
constructed  such  that  two  numbers  are  generated  in  each  pass.  This  variable  is  not 
currently  used. 

The  number  of  interaction  areas  or  units  on  the  face  of  the  stack  towards  the  target  area. 

Minimum  number  of  final  impacts  for  each  lOO-^t  range  increment  for  the  specified 
number  of  units. 

Maximum  number  of  final  impacts  for  each  lOO-ft  range  increment  for  the  specified 
number  of  units. 

Character  variable  containing  the  code  name  for  the  output  device.  For  the  FRAGHAZ 
program  the  code  (LPTl)  designates  the  Epson  Printer  with  the  IBM  PC- AT. 

The  number  of  fragments  used  in  the  simulation.  A  separate  trajectory  is  calculated  for 
each  fragment,  for  each  replication  or  treatment. 

Average  number  of  hazardous  fragments  for  each  100-ft  range  increment  for  the  number 
of  units  specified. 

The  number  of  levels  for  each  factor  in  the  FULL  FACTORIAL  option.  Index  identifies 
which  factor. 

The  number  of  replications  or  treatments  for  which  the  initial  and  final  conditions  of 
each  fragment  trajectory  will  be  printed. 

The  number'of  units  required  to  just  exceed  the  Probability  of  Hit  criterion  for  each 
100-ft  range  increment.  There  are  four  values  in  the  output:  minimum,  maximum,  50th 
percentile,  and  the  specified  percentile.  Values  pertain  to  100,  200,  300,  and  400  ft  range 
increments. 

Equally  weighted  total  number  of  fragments  (hazardous  and  nonhazardous)  for  each 
100-ft  range  increment  for  the  specified  number  of  units.  The  average  is  accumulated 
after  each  replication  or  treatment  and  stored  in  the  variable  TN  (97). 
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NR  Number  of  replications  selected  for  the  MONTE  CARLO  option.  Number  of  treatments 

is  computed  internally  for  the  FULL  FACTORIAL  option  and  also  stored  in  this 
variable 

NX  The  number  of  fragments  associated  with  a  trajectory  for  the  specified  number  of  units. 


-0- 


There  are  no  variables  beginning  with  "O”. 


-P- 


P 

P5 

P9 

PA 
PC 
PCT 
PCTD 
PH  (97) 

PI 

PT  (97) 


PX(100,97) 

PW 


A  counter  which  specifies  the  number  of  trajectory  points  in  any  one  100-ft  range 
increment  of  the  hazard  volume.  It  is  used  to  keep  running  averages  of  density  and 
probability  of  hit  within  the  given  100-ft  increment. 

Designates  the  50th  percentile  elements  in  the  sorted  lists  of  hazardous  density  and 
probability  of  not  hitting  the  target. 

Designates  the  specified  percentile  elements  in  the  sorted  lists  of  hazardous  density  and 
probability  of  not  hitting  the  target.  The  90th  percentile  is  currently  specified  for  hazard 
curves. 

Upper  angle  of  the  polar  zone  containing  a  particular  fragment,  (deg) 

Probability  of  hit  hazard  criterion  currently  equal  to  0.01. 

The  percentile  level  selected  at  the  outset,  (percent) 

The  selected  percentile  level  as  a  decimal  for  use  in  calculations. 

Average  probability  of  not  hitting  the  target  with  hazardous  fragments  for  each  100-ft 
increment  for  the  specified  number  of  units.  A  running  average  is  kept  for  each 
replication  or  treatment  and  stored  in  the  variable  HP  (97). 

The  circular  constant  equal  to  3. 141593. 

Average  probability  of  not  hitting  the  target  with  hazardous  and  nonhazardous 
fragments  for  each  100-ft  range  increment  for  the  specified  number  of  units.  An 
accumulating  average  is  kept  for  each  replication  or  treatment  and  stored  in  the 
variable  TP  (97). 

The  probability  of  not  hitting  the  target  with  hazardous  fragments  for  one  unit 
(interaction  area)  and  for  each  replication  or  treatment  and  each  100-ft  range  increment. 

Constant  for  calculating  the  presented  area  of  the  top  of  a  100-ft  segment  of  the  hazard 
volume  with  an  angular  width  equal  to  the  variable  (AS). 
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Q 

QE 

QV 

R 

RB 

RI 

R12 

RL 

RN 

RND(UIX) 

RO 

RZ 

51 

52 

53 

54 

55 


-Q- 


Character  variable  which  contains  the  DISK  file  name  for  all  the  frag  data. 

Ricochet  angle  ratio  of  reflected  to  incident  angle. 

Ricochet  velocity  ratio  of  reflected  to  incident  velocity. 

-R- 

Index  for  range  loops  expressed  in  hundreds  of  feet. 

Number  of  rebounds  for  a  ricocheting  fragment. 

Range  increment  for  the  four  sets  of  output  tables.  Rl  has  values  of  100,  200,  300,  and 
400  ft. 

Equals  .RI  in  hundreds  of  ft. 

Last  range  as  an  integer  in  hundreds  of  feet  to  determine  if  a  fragment  has  passed  from 
one  100-ft  increment  to  the  next  in  the  hazard  volume. 

Range  of  fragment.  Component  of  distance  along  X  axis,  (ft) 

E unction  for  calculating  uniform  random  numbers  between  0  and  1  for  the  MONTE 
CARLO  option. 

One-half  the  air  density.  (Ib/ft3).  The  one-half  factor  is  applied  here  to  save  including  it 
in  each  drag-deceleration  equation. 

A  flag  to  indicate  whether  the  program  will  be  run  under  the  MONTE  CARLO  or  FULL 
FACTORIAL  option.  RZ  =  1  for  MONTE  CARLO  and  C  for  FULL  FACTORIAL.. 

-S- 


Variable  used  in  calculating  the  running  average  of  total  fragment  density  (hazardous 
and  nonhazardous)  within  a  single  lOO-ft  range  increment  for  the  number  of  units 
specified.  (Frags/ft2) 

Like  SI  but  used  with  total  (hazardous  and  nonhazardous  fragments)  probability  of  not 
hitting  the  target  for  the  number  of  units  specified. 

Like  SI  but  used  with  hazardous  density  for  the  number  of  units  specified.  (Frags/ff-) 

Like  Si  but  used  with  hazardous  probability  of  not  hitting  the  target  for  the  specified 
number  of  units. 

Like  Si  but  used  with  hazardous  probability  of  not  hitting  the  target  for  one  unit. 
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S6 

SCMAX 

SCMIN 

SIGS 

SUM 

T 

T5 

T8MIN  (97) 

T9MAX  (97) 

TA 

TD(97) 

TI  (97) 

TJ 

TN  (97) 

TP  (97) 

TS 


Like  Si  but  used  with  hazardous  number  of  fragments  for  the  specified  number  of  units. 
Maximum  Soil  Constant  (SCMIN  to  4.0) 

Minimum  Soil  Constant  (0.5  to  4.0) 

Stack  Inert  Ground  Standoff  (ft).  Distance  from  ground  to  the  beginning  of 
fragmenting  cases  on  the  face  of  the  stack  towards  the  target  area.  For  a  typical 
wooden  pallet,  SIGS  would  be  about  0,5  ft. 

Used  when  weighting  100-ft  range  increments  for  combining  into  200,  300,  and  400  ft 
range  increments.  It  is  the  sum  of  the  weightings  for  each  1 00-ft  range  increment  used 
as  a  divisor  to  obtain  the  weighted  average. 


-T- 


An  index  and  counter  used  for  designating  the  Replication  or  Treatment  number. 

A  switching  variable  used  in  the  SORT  routines. 

Accumulated  minimum  number  of  final  impacts  in  each  100-ft  range  increment  for  the 
specified  number  of  units  for  the  100, 200,  300,  and  400  ft  output  range  increments. 

Accumulated  maximum  number  of  final  impacts  in  each  100-ft  range  increment  for  the 
specified  number  of  units  for  the  100,  200,  300,  and  400  ft  output  range  increments. 

Total  presented  area,  perpendicular  to  the  fragment  trajectory,  of  a  100-ft  increment  of 
the  hazard  volume  (ft2). 

Running  weighted  average  total  density  (hazardous  and  nonhazardous  fragments)  for 
each  100-ft  range  increment.  (Frags/ft^) 

Accumulated  average  number  of  final  impacts  in  each  100-ft  range  increment  for  the 
specified  number  of  units  for  the  100,  200,  300,  and  400  ft  output  range  increments. 

Accumulates  the  number  of  trajectories  with  range  greater  than  the  maximum 
computation  range  specified  at  the  outset  in  variable  MRA.  The  number  is  the  total  for 
all  replications  or  treatments. 

Average  total  number  of  fragments  (hazardous  and  nonhazardous)  for  each  100-ft  range 
increment  for  the  specified  number  of  units. 

Accumulated  average  probability  of  hitting  the  target  in  each  100-ft  range  increment  for 
the  specified  number  of  units. 

Character  variable.  Contains  a  title  or  description  of  the  target. 
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-U- 


UDUM  A  dummy  variable  for  accessing  the  RND(UIX)  function. 

USE  Double  precision  integer  seed  for  the  random  number  generator  used  with  the  MONTE 

CARLO  option.  (1  -2147483646) 


-V- 


•  A 


vT 


VP 

VQ(6) 


VR 


VS 


VXP 


Magnitude  of  the  fragment  velocity  vector.  Sum  of  its  X,  Y,  and  Z  components.  (fUs) 

Magnitude  of  the  fragment  velocity  vector  after  ricochet  in  the  same  plane  as  the 
incident  velocity  vector,  (ft/s) 

Magnitude  of  the  fragment  velocity  vector  at  final  impact,  (ft/s) 

Magnitude  of  the  fragment  velocity  vector,  with  wind  effects  added.  Sum  of  the  X,  Y, 
and  Z  component  speeds  with  wind  added,  (ft/s) 

Ratio  of  the  magnitudes  of  the  velocity  vector  before  and  after  ricochet  for  six  different 
values  of  soil  constant.  ^ 

Incident  magnitude  of  the  fragment  velocity  vector  used  for  ricochet  calculations.  Sum 
of  the  X,  Y,  and  Z  component  speeds,  (ft/s) 

Speed  of  sound  at  sea  level  equal  to  1116.4  ft/s. 

Magnitude  of  the  X  component  of  the  fragment  velocity  vector  (VP).  Contains  the  effects 
of  wind,  (ft/s) 


VYP  Magnitude  of  the  Y  component  of  the  fragment  velocity  vector  (VP).  Contains  the  effects 

of  wind,  (ft/s) 

VZP  Magnitude  of  the  Z  component  of  the  fragment  velocity  vector  (VP).  Contains  the  effects 

of  wind,  (ft/s) 


-W- 


WD  Wind  direction  (deg)  measured  clockwise  from  the  X-Y  plane.  Tail  wind  is  0  deg. 

WM  Width  measurement  of  the  target.  For  an  average  male  soldier  this  dimension  is  1 .00  ft. 

WS  Magnitude  of  the  wind  velocity  vector.  Can  be  different  for  each  replication  or  treatment 

if  WSMAX  and  WSMIN  are  different.  If  WSMIN  and  WSMAX  are  the  same  then  wind 
speed  is  constant  for  all  replications  or  treatments,  (ft/s) 

WSMAX  Maximum  magnitude  of  the  wind  velocity  vector,  (ft/s) 

WSMIN  Minimum  magnitude  of  the  wind  velocity  vector,  (ft/s) 
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X- 


X5  The  number  of  fragment  multipliers.  See  Appendix  D  for  explanation  of  fragment 

multipliers. 

X5D(97)  Weighted  average  of  the  50th  percentile  hazardous  density  for  each  100,  200,  300,  and 

400  ft  range  increment,  for  the  specified  number  of  units  (P>ags/ft2) 

X5P(97)  Weighted  average  of  the  50th  percentile  hazardous  probability  of  hit  for  each  100,  200, 

300,  and  400  ft  range  increment,  for  the  specified  number  of  units. 

X7DMIN  (97)  Minimum  hazard  density  for  each  100,  200,  300,  or  400  ft  range  increment,  for  the 

specified  number  of  units,  for  all  replications  or  treatments.  (Frags/ft2) 

X8DMAX  (97)  Maximum  hazard  density  for  each  100,  200,  300,  or  400  ft  range  increment,  for  the 
specified  number  of  units  for  all  replications  or  treatments.  (Frags/ft2) 

X9D  (97)  Hazard  density  for  the  percentile  specified,  for  each  100,  200,  300,  or  400  ft  range 

increment,  for  the  specified  number  of  units  for  all  replications  or  treatments. 

(Frags/ft2) 

X7PMIN  (97)  Minimum  hazard  probability  of  hit  for  each  100,  200,  300,  or  400  ft  increment,  for  the 

specified  number  of  units,  for  all  replications  or  treatments. 

X8PMAX  (97)  Maximum  hazard  probability  of  hit  for  each  100,  200,  300,  or  400  ft  increment,  for  the 
specified  number  of  units,  for  all  replications  or  treatments. 

X9P  (97)  Hazard  probability  of  hit  for  the  percentile  specified,  for  each  100, 200,  300,  and  400  ft 

increment,  for  the  specified  number  of  units,  for  all  replications  or  treatments. 

XA  Cross-range  angle  for  final  impact;  equal  to  the  arctan  of  crossrange  divided  by  range, 

(deg) 

XD  Displacement  increment  of  integration  in  the  Runge-Kutta  routine  selected  at  the 

beginning  of  the  trajectory  and  after  each  ricochet,  (ft) 

XE  Elevation  angle  in  degrees  used  when  going  to  the  Integration  Step  Subroutine  initially 

and  after  each  ricochet,  (deg) 

XK  (4,  7)  The  four  K  constants  in  the  4th  order  Runge-Kutta  routine.  For  the  second  index,  only 

2,  4,  6  are  used  to  calculate  X,  Y,  and  Z  components  of  velocity,  (ft/s) 

XL  Flag  to  determine  whether  cross-range  calculations  will  be  made  in  the  Runge-Kutta 

routine.  XL  =  4  for  no  cross-range  calculations  and  XL  =  6  for  cross-range  calculations. 
Cross-range  calculations  are  only  made  when  there  is  a  cross-range  component  of  wind. 

XN  (97)  Equally  weighted  average  number  of  final  impacts  for  each  100, 200,  300,  and  400  ft 

range  increment,  for  the  specified  number  of  units,  averaged  over  all  replications  or 
treatments. 


C-15 


NSWC  TR  87-59 


XP 

XR 

XV 

Y2(36) 

Y5D(97) 

Y7DMIN  (97) 

Y8DMAX  (97) 

Y9D  (97) 

Y 

YE 

YNdOO,  97) 

Z5P(97) 

Z7PMIN  (97) 

Z8PMAX(97) 

Z9P  (97) 


Total  (hazardous  and  nonhazardous  fragments)  probability  of  not  hitting  the  target 
averaged  over  the  number  of  points  within  a  single  100-ft  range  increment. 

Cross-range  displacement  of  fragment,  (ft) 

Initial  magnitude  of  the  velocity  vector  retained  for  the  output  trajectories  tables,  (ft/s) 


-Y- 


Fragment  multiplier.  The  index  indicates  the  upper  bound  of  the  5  or  10  deg  polar  zones 
containing  a  specific  fragment.  For  example,  Y2  (4)  for  10  deg  polar  zones  would 
indicate  polar  zone  30  to  40  deg. 

The  number  of  units  required  to  just  exceed  the  hazard  density  criterion  for  each  100, 
200,  300,  and  400  ft  range  increment,  for  50th  percentile  values. 

Minimum  number  of  units  needed  to  just  exceed  the  hazard  density  criterion  for  each 
100,  200,  300,  and  400  ft  range  increment. 

Maximum  number  of  units  needed  to  just  exceed  the  hazard  density  criterion  for  each 
100,  200,  300,  and  400  ft  range  increment.  ^ 

The  number  of  units  required  to  just  exceed  the  hazard  density  criterion  for  each 
100,  200,  300,  and  400  ft  range  increment  for  the  percentile  specified. 

Used  to  draw  the  first  random  number  from'the  seed.  This  starts  the  random  number 
sequence  for  the  MONTE  CARLO  option.  This  first  number  is  not  used. 

Initial  elevation  angle  in  degrees  saved  for  output  trajectories  tables,  (deg) 

Number  of  fragments  (hazardous  and  nonhazardous)  with  final  impacts  in  each  100-ft 
range  increment,  for  each  replication  or  treatment,  for  the  number  of  units  specified. 


-Z- 


Weighted  average  of  the  50th  percentile  hazardous  probability  of  hit  for  a  single  unit,  for 
each  100, 200, 300,  and  400  ft  range  increment. 

Weighted  average  of  the  minimum  probability  of  hit  for  a  single  unit,  for  each  100, 200, 
300,  and  400  ft  range  increment. 

Weighted  average  of  the  maximum  probability  of  hit  for  a  single  unit,  for  each  100, 200, 
300,  and  400  ft  range  increment. 

Weighted  average.of  the  probability  of  hit  for  a  single  unit  for  each  100,  200, 300,  and 
400  ft  increment  for  the  percentile  specified. 
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Running  average  of  probability  of  not  hitting  the  target  for  cacb  point  within  a  single 
100-ft  range  increment,  for  the  number  of  units  specified. 

Running  average  of  probability  of  not  hitting  the  target  for  each  point  within  a  single 
100-ft  range  increment,  for  a  single  unit. 
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APPENDIX  D 

FRAGMENT  MULTIPLIERS 
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INTRODUCTION 


In  order  to  make  the  program  applicable  to  any  size  ammo  stack  with  any  number  of  interaction  areas 
or  units  on  the  face  of  the  stack  towards  the  target  area,  it  is  necessary  to  have  effective  number  of  fragments 
in  unit  values.  The  two  unit  values  required  are  one  interaction  area  (unit)  and  one  deg  of  azimuth.  In  the 
small-scale  fragmentation  arena  test  there  is  almost  always  more  than  one  interaction  area  and  more  than 
one  deg  of  azimuth  recovery. 

Three  procedures  used  to  recover  fragments  and  calculate  fragment  multipliers  are  shown  in 
Figures  D-1,  D-2,  and  D-3. 


RECOVERY  BY  POLAR  ZONE  ONLY 


This  procedure  is  the  least  accurate  in  locating  the  position  of  a  fragment  in  terms  of  polar  and 
azimuthal  angles.  The  marking  of  the  fragment  recovery  packs  is  shown  in  Figure  D-1.  To  calculate 
fragment  multipliers  for  each  10  deg  polar  zone,  use  is  made  of  Fragmentation  Arena  Multipliers. 

The  Fragment  Arena  Multiplier  is  the  ratio  of  the  area  of  the  360  deg  polar  zone  to  the  partial  area  of 
the  polar  zone  which  is  projected  onto  the  recovery  packs.  The  fragment  multiplier  is  then  calculated  as 
follows  for  one  interaction  area  (unit)  and  one-deg  of  azimuth. 

^ 

^  (360)  (N) 


where 


Mp  -  Fragment  multiplier  for  one  interaction  area  (unit)  and  one  deg  of  azimuth  for  the  particular 
polar  zone  in  question. 

Ma  -  Fragmentation  Arena  Multiplier  for  the  particular  polar  zone  in  question. 

N  -  N  umber  of  interaction  areas  (units)  on  the  face  of  the  stack  towards  the  recovery  packs  for  the 
small-scale  arena  test. 


D-iMcCIeskey,  Frank,  Fragmentation  Arena  Multipliers,  Naval  Surface  Weapons  Center  report  NSWC 
TN  84-43,  March  1984. 
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RECOVERY  BY  POLAR  AND  AZIMUTHAL  ZONES 


Figure  D-2  shows  recovery  pack  marking  for  both  polar  and  azimuthal  zones.  This  method  decreases 
the  uncertainty  in  azimuthal  coverage  but  presents  a  problem  in  identifying  the  most  dense  region  of 
fragmentation  in  azimuthal  terms.  In  the  field,  it  is  difficult  to  perceive  the  overall  fragment  distribution  due 
to  the  large  dimensions  of  the  recovery  packs.  More  azimuthal  lines  may  be  required.  In  any  event,  once  the 
azimuthal  extent  of  the  most  dense  fragmentation  is  selected,  the  fragmentation  multipliers  for  each  polar 
zone  are  calculated  as  follows; 


where 


1 

NA 


Mp  -  Fragmentation  multiplier  for  one  interaction  area  (unit)  and  one  degree  of  azimuth  for  the 
particular  polar  zone  in  question.  If  the  azimuth  sector  is  the  same  for  all  polar  zones  then  the 
fragment  multipliers  for  all  polar  zones  will  be  the  same. 

N  -  Number  of  interaction  areas  (units)  on  the  face  of  the  stack  towards  the  recovery  packs  for  the 
small-scale  arena  test.  ^ 

As  -  Size  of  the  azimuth  sector  enclosing  the  area  of  high  fragment  density  for  each  polar  zone 
(degrees). 


RECOVERY  BY  X-Y  COORDINATES 


This  procedure  is  the  most  flexible  and  most  accurate  of  the  three  procedures  in  locating  fragment 
position.  The  X  coordinate  is  measured  from  the  90  deg  polar  angle  trace  on  the  recovery  packs.  This  trace  is 
a  straight  vertical  line.  Symmetry  exists  right  and  left  of  the  90  deg  polar  trace  as  shown  in  Figures  D-1  and 
D-2.  The  Y  dimension  is  measured  from  the  longitudinal  center  line  of  the  packs  (A-A).  Again,  there  is 
symmetry  above  and  below  the  center  line  (A-A).  All  fragments  have  a  specified  minimum  weight  (currently 
300  grains).  The  X-Y  positions  for  all  fragments  recovered  from  the  packs  are  plotted  on  a  piece  of  graph 
paper.  The  length  of  the  graph  rectangle  will  be  about  (130nR/l  80)  where  R  is  the  radius  of  the  arena.  The 
range  of  polar  angles  is  from  0  to  1 30  which  is  consistent  with  ricochet  limits.  Polar  and  azimuthal  lines  are 
then  drawn  on  the  graph  paper  and  the  azimuthal  limits  are  selected  so  as  to  bound  the  area  of  highest 
fragment  density.  Generally,  the  azimuthal  bounds  should  cover  about  1 0  deg  to  be  consistent  with  the 
azimuthal  angle  of  the  hazard  volume  (Figure  1  in  the  GENERAL  PROGRAM  DESCRIPTION  Section  of  the 
main  body).  These  angles  can  be  changed  to  meet  special  conditions.  Should  they  need  to  be  changed,  the 
user  must  also  change  the  elevation  (polar)  zone  size  (ES)  and  the  azimuthal  coverage  size  (AS)  in  BLOCK  1 
(Variable  Constants)  of  the  program  listing  in  Appendix  B. 

The  following  method  can  be  used  to  superimpose  polar  and  azimuthal  traces  on  graph  paper: 

Given:  R  -  Arena  radius  (ft) 

0  -  Any  polar  angle  converted  to  radians 
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H  -  Height  of  recovery  packs  above  or  below  the  center  line  (A-A)  (ft) 

Increment  Y  from  0  to  H  STEP  0.5  whenp<0 
Increment  Y  from  0  to  R  tan  9  STEP  R  tan  0/10  whenP&O 

then 


(})  =  tan  ^  {tan  0  cos  ip) 


Plot  each  of  the  X- Y  coordinates  and  draw  a  smooth  curve  through  them.  When  all  the  polar  angle 
traces  are  plotted,  the  azimuthal  traces  can  be  plotted  by  finding  the  Y  dimension  where  the  azimuthal  trace 
intersects  each  of  the  polar  angle  traces.  The  Y  dimension  is  found  as  follows: 

Given;  R  -  Arena  radius  (ft) 

0  -  Any  polar  angle  converted  to  radians 

a  -  Any  azimuthal  angle  converted  to  radians 


then 


p  =  sin-i  (sin  0  sin  a) 

Y  =  R  tan  p 

Plot  each  of  the  intersection  points  and  draw  a  smooth  curve  through  them.  Remember  that  symmetry 
exists  right  and  left  of  the  90  deg  polar  trace,  and  above  and  below  the  longitudinal  center  line  (A-A)  of  the 
recovery  packs. 

By  observation  select  the  azimuthal  bounds  which  best  enclose  the  area  of  high  fragment  density.  The 
fragment  multipliers  are  then  calculated  as  follows 
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where 


Mp  -  Fragmentation  multiplier  for  one  interaction  area  (unit)  and  one  deg  of  azimuth  for  the  particular 
polar  zone  in  question.  If  the  azimuth  sector  is  the  same  for  all  polar  zones  then  the  fragment 
multipliers  for  all  polar  zones  will  be  the  same. 

N  -  Number  of  interaction  areas  (units)  on  the  face  of  the  stack  towards  the  recovery  packs  for  the 
small-scale  arena  test. 

As  -  Size  of  the  azimuth  sector  enclosing  the  area  of  high  fragment  densities  for  each  polar  zone 
(degrees) 


SAMPLE  CALCULATION 


Suppose  one  wanted  to  find  the  fragment  multiplier  for  all  fragments  in  a  particular  polar  zone  (9i  -  82) 
which  is  bounded  by  an  1 1  deg  azimuthal  sector.  Further  assume  that  there  were  six  interactions  areas 
(units)  facing  the  recovery  packs  in  the  small-scale  arena  test.  Then  the  fragment  multiplier  would  be 


M 


1 

-  =;.0. 01515 

6x11 


In  the  computer  program,  when  one  needs  to  calculate  the  trajectory  and  hazards  for  any  fragment  in 
this  polar  zone,  one  would  associate  an  effective  number  of  fragments  with  the  trajectory.  Suppose  the  stack 
one  was  simulating  in  the  computer  program  had  46  interaction  areas  (units)  facing  the  target  area  and  one 
was  using  a  1 0  deg  azimuthal  width  for  the  hazard  volume.  The  effective  number  of  fragments  to  be 
associated  with  each  fragment  in  the  particular  polar  zone  would  be: 


=  0.01515  X  46  X  10  =  6.969 
E 

This  effective  number  of  fragments  would  be  used  to  calculate  hazard  density,  hazard  probability  of  hit, 
and  number  of  final  impacts  for  the  particular  fragment  trajectory. 

This  procedure  assumes  linear  scaling.  For  example  if  there  were  four  units  in  the  small-scale  test  and 
one  was  simulating  40  units  in  the  full-scale  simulation  in  the  computer  program,  then  for  each  fragment 
recovered  in  the  small-scale  test  within  polar  and  azimuthal  bounds,  one  would  assume  10  identical 
fragments  for  the  full-scale  simulation.  Only  one  trajectory  would  be  calculated  but  one  would  associate  10 
identical  fragments  with  it  for  calculation  of  density,  probability  of  hit,  and  number  of  final  impacts.  For 
azimuthal  coverage  one  would  assume  constant  density  throughout  the  azimuthal  sector  for  the  polar  zone  in 
question. 
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APPENDIX  E 
RICOCHET  DATA 
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All  ricochet  data  are  taken  from  a  report  published  in  1970.^-1  The  data  permit  fragment  ricochet 
angle  and  velocity  to  be  calculated  from  the  incident  angle  and  velocity  for  a  given  soil  type. 

Table  E-1  gives  all  the  data  necessary  to  compute  ricochet  angle  and  velocity. 


TABLE  E-1. 

FRAGMENT  RICOCHET  DATA 

Soil 

Constant 

Critical 

Angle 

(Degl 

Angle  and  Velocity  Ratio  Eauations 

0.25 

6.25 

VW  =  -0.01597  E2  +  0.02156  E-1-  0.9617 

EVE  =  0.13829  E2 -0.98645  E  4-  2.8155 

0.50 

V7V  =  -0.00861  E2  +  0.00692  E  4-  0.96302 

EVE  =  0.08549  E2  -  0.78423  E  4-  2.9012 

1.0 

VVV  =  -0.00387  E2  -  0.00414  E  4-  0.95592 

E'/E  =  0.07515  E2  -  0.73919  E  4-  3.1056 

2.0 

14.0 

VVV  =  -0.00342  E2  -0.00097  E  4-  0.9409 

E'/E  =  0.02142 £2- 0.37397  E 4-  2.7858 

3.0 

V'/V  =  -0.00243  E2  -0.0052  E  4-  0.9308 

E'/E  =  0.01707  E2  -  0.32521  E  4-  2.8092 

4.0 

17.0 

V'/V  =  -0.00188  E2  -  0.00821  E  4-  0.93802 

E'/E  =  0.01369  E2- 0.2958  E  4-  2.8262 

where 

V'  -  Ricochet  Velocity 
V  -  Incident  Velocity 
E'  -  Ricochet  Angle 
E  -  Incident  Angle 

The  critical  angle  is  the  incident  angle  above  which  the  fragment  will  not  ricochet.  An  approximate 
equation  relating  soil  constant  to  critical  angle  is: 


E-lReches,  M.,  Fragment  Ricochet  off  Homogenious  Soils  and  Its  Effects  on  Weapon  Lethality  (U),  Army 
Material  Systems  Analysis  Agency  Technical  Memorandum  No.  79,  August  1970  (CONFIDENTIAL), 
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where 


Ec  -  Critical  angle  (Degrees) 

BQ  -  Soil  constant 

The  soil  constant  for  various  soils  is  shown  in  Figure  E-1.  Subsequent  to  the  publication  of  the  ricochet 
report  it  has  been  common  practice  to  limit  the  minimum  soil  constant  to  0.5. 

In  the  experiments  conducted  for  the  ricochet  report,  incident  velocities  varied  between  1000  and 
5000  ft/s.  It  was  found  that  the  critical  angle  and  the  ratios  for  velocity  and  angle  were  relatively  insensitive 
to  incident  velocity.  In  the  FRAGHAZ  program,  the  critical  angle  and  ricochet  ratios  are  further  assumed  to 
be  applicable  to  incident  velocities  as  low  as  20  ft/s  and  as  high  as  10000  ft/s.  Although  this  assumption  is  not 
supported  by  tests,  it  does  appear  reasonable  in  light  of  the  good  agreement  obtained  with  FRAGHAZ 
predictions  of  the  range  distributions  of  fragments  and  actual  fragment  pickup  from  large-scale  tests  (see 
Figures  5  and  6  in  the  GENERAL  PROGRAM  DESCRIPTION  Section  of  the  main  body). 

In  the  ricochet  experiments,  slender  rods  with  a  square  cross  section  were  used.  These  rods  had  flat 
faces  and  the  length  to  width  to  thickness  ratios  were  3: 1 : 1  in  most  cases.  The  author  of  the  ricochet  report 
has  stated  that  these  rods  are  reasonable  substitutes  for  irregular  fragments.  Again,  the  results  given  in 
Figures  5  and  6  lend  strength  to  this  supposition. 

In  application,  when  the  soil  constant  is  between  the  discrete  values  given  in  Table  E-1  resort  is  made 
to  linear  interpolation  for  the  angle  and  velocity  ratios. 


APPARENT  COHESIVE  SOILS - - APPARENT  NONCOHESIVE  SOILS 


FICL'RE  E-1,  SOIL  CONSTANTS  FOR  VARIOUS  SOILS 
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appendix  f 

PORTABILITY  TEST  FOR  THE  RANDOM  NUMBER  GENERATOR 
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INTRODUCTION 


There  are  situations  in  which  it  is  desirable  to  have  a  random  number  generator  that  is  machine 
independent.  In  the  case  of  FRAGH AZ  it  is  desirable  that  the  user  be  able  to  check  the  MONTE  CARLO 
aspects  of  the  program  with  a  test  case.  In  order  to  do  this,  the  user  must  be  able  to  generate  the  same 
sequence  of  random  numbers  that  was  used  in  generating  the  test  case.  This  requires  a  portable  random 
number  generator.  One  such  portable  generator  (used  in  FRAGH  AZ)  has  been  described  in  the  literature. 
The  user  must  first  assure  himself  that  the  portable  generator  is  indeed  portable  on  his  computer.  A  suitable 
test  is  described  below. 


PORTABILITY  TEST 


The  generator  presented  in  Listing  F-1  is  applicable  to  most  any  computer  having  a  double  precision 
option  which  can  represent  integers  from  0  to  231-1.  This  is  usqally  the  case  even  with  older  eight-bit 
microcomputers.  This  generator  is  a  full  cycle  type  which  will  produce  a  sequence  of  random  numbers 
between  1  and  231  -  2  without  recycling;  that  is,  more  than  2  billion  numbers  without  recycling.  The 
generator  and  its  variables  are  described  in  the  reference.  To  date,  this  generator  has  been  tested 
successfully  on  the  following  six  computers: 

CONTROL  DATA  CDC  865 

DIGITAL  VAX  785 

IBM- AT 

APPLE  II  e 

APPLE  -MACINTOSH 

TANDY  TRS-80,  MOD  1,  LEVEL  II 

In  each  case  the  checks  were  exact.  Both  BASIC  and  FORTRAN  languages  were  used. 

To  check  portability,  the  user  should  type  in  the  program  given  in  Listing  F-1. 

If  the  user’s  computer  has  an  integer  word  size  of  at  least  231  - 1,  he  may  want  to  use  the  INTEGER 
procedure  presented  in  the  Schrage  reference.  Given  the  same  seed,  the  INTEGER  procedure  will  generate 
the  same  sequence  of  random  numbers  as  the  DOUBLE  PRECISION  procedure  given  in  Listing  F-1.  The 
INTEGER  procedure  will  run  4  or  5  times  faster. 

Using  seeds  zero  or  2147483647  will  produce  a  sequence  of  random  numbers  all  equal  to  zero.  This 
may  be  useful  in  special  cases.  Using  these  seeds  will  require  two  changes  in  the  program  listing  given  in 
Listing  B-1  of  Appendix  B.  First,  delete  line  985.  Second,  change  line  400  to  read: 

400  DD  =  SQRT(-2.  *  LOG(RND(UDUM  +  lE-06))) 


P  'Schrage,  Linus,  A  More  Portable  Fortran  Random  Number  Generator.  ACM  Transactions  on 
Mathematical  ^ftware' Vol  5,  No.  2,  June  1979,  pp.  132  138. 
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LISTING  F-1.  RANDOM  NUMBER  PORTABILITY  CHECK 


REAL  JRN 

DOUBLE  PRECISION  DRAND,UIX ,UANS 

UIX  =  l.DO 

UANS  =  DRANDIUIX) 

DO  1000  I  =  2,1005 
UANS  =  DRAND(UIX) 

JRN  =  INT(UANS  *  1.D06)  /  1.D06 
IF(I  .ST.  995)  WRITE(*,*) I,UIX,UANS,JRN 
1000  CONTINUE 
STOP 
END 

DOUBLE  PRECISION  FUNCTION  DRAND(UIX) 

C  PORTABLE  RANDOM  NUMBER  GENERATOR  USING  THE  RECURSION: 

C  UIX  =  UIX  *  UA  MOD  UP 

DOUBLE  PRECISION  UA ,UP , UI X ,UB15 ,UB16 , UXHI ,UXALO ,ULEFTLO ,UFHI ,UK 
DATA  UA/  16B07.  DO/  ,UB15/3276a,  DO/  ,UBl1b/65536.  DO/  , UP/2147483647.  DO/ 
C  GET  15  HI  ORDER  BITS  OF  UIX 
UXHI  =  UIX  /  UB16 
UXHI  =  UXHI  -  DMOD (UXHI , l.DO) 

C  BET  16  LO  BITS  OF  UIX  AND  FORM  LO  PRODUCT 
UXALO  =  (UIX  -  UXHI  *  UB16)  *  UA 
C  GET  15  HI  ORDER  BITS  OF  LO  PRODUCT 
ULEFTLO  =  UXALO  /  UB16 

ULEFTLO  =  ULEFTLO  -  DMOD (ULEFTLO, 1 . DO) 

C  FORM  THE  31  HIGHEST  BITS  OF  FULL  PRODUCT 
UFHI  =  UXHI  *  UA  +  ULEFTLO 
C  GET  OVERFLO  PAST  3 1ST  BIT  OF  FULL  PRODUCT 
UK  =  UFHI  /  UB15 
UK  =  UK  -  DMOD (UK, l.DO) 

C  ASSEMBLE  ALL  THE  PARTS  AND  PRESUBTRACT  UP 
C  THE  PARENTHESIS  ARE  ESSENTIAL 

UIX  =  ( ( (UXAL0-ULEFTLa*UB16)  -  UP)  +  (UFHI-UK*UB15)  ♦  UB16)  +  UK 
C  ADD  UP  BACK  IN  IF  NECESSARY 

IF(UIX  .LT.  O.DO)  UIX  =  UIX+UP 
C  MULTIPLY  BY  1/(2**31-1) 

DRAND  =  UIX  *  4.656612875D-10 

RETURN 

END 
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The  seed  UIX  =  1.0  is  in  Double  Precision.  The  DO  Loop  goes  from  2  to  1005  and  prints  out  results  for 
draws  996  thru  1005.  The  loop  starts  with  two  to  be  compatible  with  the  reference  which  seems  to  have 
counted  the  seed  as  the  first  draw.  The  10.00th  draw  results  are  the  ones  given  in  the  reference.  The  results 
should  be  identical  to  those  given  in  Table  F-1.  The  table  has  four  columns.  The  first  is  the  number  of  the 
random  number  drawn.  The  second  is  the  double  precision  random  number  as  an  integer.  The  third  is  the 
random  number  as  a  double  precision  decimal  fraction  between  0  and  1 .  The  fourth  is  a  single  precision 
random  number  (JRN)  between  0  and  1  having  six  significant  digits.  This  single  precision  number  is  the  one 
used  in  FRAGHAZ  for  all  random  variables. 

If  the  user  cannot  meet  the  portability  check  then  he  will  be  unable  to  directly  verify  the  test  case  for 
the  MONTE  CARLO  option.  Hand  cases  will  be  required  with  a  random  number  generator  chosen  by  the 
user.  The  FULL  FACTORIAL  test  case  does  check  everything  but  paths  unique  to  the  MONTE  CARLO 
option  and  crosswind  effects  which  have  not  been  used  in  practical  problems  to  date. 


TABLE  F-1.  RANDOM  NUMBER  PORTABILITY  CHECK 


996  1. 1509574630000E+009 

997  1. 7569721 120000E+009 

998  1.99692378100008+009 

999  1.423551 95 lOOOOE+009 

1000  5 . 2232923000000E+008 

1001  2.0217033210000E+009 

1002  1.28145321300008+009 

1003  2 . 70655 1 2800000E+008 

1004  5 . 3037 1 95000000E+008 

1 005  1 . 90422860000008+009 
Stop  —  Program  terminated. 


5.35956334078318-001 
8. 18107329646768-001 
9. 29890098899838-001 
6. 62893034325808-001 
2. 4^28501740688-001 
9.41428971399898-001 
5. 96723153036598-001 
1 . 26033615372968-001 
2. 46973685090898-001 
B. 86725541570328-001 


5.3595608-001 
8. 1810708-001 
9.2989008-001 
6.6289308-001 
2.4322808-001 
9.4142808-001 
5.9672308-001 
1.2603308-001 
2.4697308-001 
8.8672508-001 
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appendix  G 
WEIGHTING  FACTORS 
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In  addition  to  the  intermediate  output  of  initial  and  final  conditions  for  individual  trajectories,  the 
final  output  consists  of  statistics  for  three  basic  values:  number  of  fragments,  fragment  density,  and 
fragment  probability  of  hit.  In  the  FRAGHAZ  program  all  statistics  are  calculated  on  the  basis  of  100-ft 
range  increments  within  the  hazard  volume.  In  the  past,  it  has  been  helpful  to  combine  these  statistics  for 
1 00-ft  increments  into  larger  increments  of  200,  300,  and  400  ft.  This  was  done  to  smooth  data  for  final 
hazard  curves.  Since  the  establishment  of  procedures  to  retain  and  eliminate  points  for  final  hazard  curves 
explained  in  the  GENERAL  PROGRAM  DESCRIPTION  Section  of  the  main  body,  the  need  for  larger 
combined  increments  has  diminished.  It  is  considered  useful,  however,  to  retain  combined  increments  for  the 
wide  variety  of  possible  problems  for  which  the  program  is  intended. 

When  combining  100-ft  increments  for  number  of  fragment  final  impacts,  no  weighting  factors  are 
needed.  Simple  addition  is  all  that  is  required.  For  combining  100-ft  increments  with  respect  to  the  number 
of  fragments  passing  through  increments,  a  simple  unweighted  average  is  appropriate.  When  combining 
100-ft  increments  for  fragment  density  and  probability  of  hit,  however,  weighting  factors  are  necessary  to 
account  for  the  divergent  nature  of  the  pie-shaped  hazard  volume.  Figure  G- 1 .  Both  density  and  probability 
of  hit  depend  on  the  presented  area  of  the  100-ft  increments  which  increase  with  range. 

There  are  a  number  of  ways  to  derive  weighting  factors  to  account  for  the  divergent  nature  of  the 
hazard  volume.  The  procedure  to  be  used  here  will  be  based  on  the  volumes  of  the  individual  100-ft 
increments;  that  is,  the  weighting  factor  for  a  particular  100-ft  increment  will  be  proportional  to  its  volume. 
This  is  consistent  with  the  presented  area  aspects  of  density,  and  probability  of  hit  calculations  because  the 
height  of  the  hazard  volume  is  constant  for  all  increments. 

Figure  G-1  shows  three  100-ft  increments  which  are  to  be  combined  into  one  300  ft  increment  for 
density  or  probability  of  hit  purposes.  All  range  values  will  be  in  hundreds  of  feet  which  does  not  reduce  the 
generality  of  the  procedure.  Starting  with  the  first  100-ft  increment  (Ri,  to  R2),  the  volume  is: 

nA  n  9 

V,  =  - (Rt-Rbll 

‘  360  2  1 

where 

Vi  =  Volume  of  the  100-ft  increment  Ri  to  R2. 

A  =  Constant  azimuthal  width  of  the  hazard  volume  in  degrees.  (See  Figure  G-1) 

R2  =  Maximum  range  of  the  100-ft  increment  in  hundreds  of  feet. 

Ri  =  Minimum  range  of  the  100-ft  increment  in  hundreds  of  feet. 

H  =  Constant  height  of  the  hazard  volume  equal  to  the  height  of  the  target  in  feet. 

Collecting  constants  and  calling  the  result  C,  the  volum.e  can  now  be  written  as  follows: 

Vj  =  C  {RI  -  rJ)  =  0(^2  -  «i)  (^2  + 
but 


R,-R,  =  \ 
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and,  therefore 


Vj  =  C(/?2  +  «i) 

The  volume  of  the  100-ft  increment  is  therefore  proportional  to  the  sum  of  its  maximum  and  minimum 
ranges  in  hundreds  of  feet.  The  proportionality  factors  for  the  two  remaining  100-ft  increments  is: 

If  we  divide  each  proportionality  factor  by  the  same  constant  then  the  final  weighting  will  not  be 
changed.  Dividing  each  factor  by  two  results  in  the  weighting  factor  being  proportional  to  the  midrange  of 
each  100-ft  increment,  fixpressing  the  midrange  in  hundreds  of  feet,  the  weighting  factor  for  an  increment 
like  300  to  400  ft  would  be  3.5;  for  400  to  500  ft  the  weighting  factor  would  be  4.5,  and  so  forth. 

As  a  practical  example,  suppose  we  wished  to  combine  three  100-ft  increments  from  300  to  600  ft  into 
one  300-ft  increment.  Further  suppose  the  following; 


Range 

Increment 

Density 

Weighting 
X  Factor 

300-400 

0.6 

3.5 

400-500 

0.4 

4.5 

500-600 

0.3 

5.5 

then  the  weighted  average  combined  density  would  be: 


D 


300  -  600 


0.6  (3.5)  -f  0.4(4.51  -f  0,3  (5.5) 
3.54-4.5  +  5.5 


=  0.4111 


This  example  could  serve  equally  well  for  combining  probability  of  hit.  For  comparison,  the 
unweighted  average  would  be  0.4333. 
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INTRODUCTION 


There  are  two  tests  cases:  one  for  the  MONTE  CARLO  option  (Table  H-1)  and  one  for  the  FULL 
FACTORIAL  option  (Table  H-2).  Table  H-3  contains  the  fragmentation  data  used  for  both  test  cases.  Note  in 
the  beginning  of  Tables  H-1  and  H-2  that  the  input  data  is  not  in  the  same  order  that  it  is  entered  in  the 
program  (see  BLOCK-2  of  LISTING  B-1  in  APPENDIX  B). 


TABLES  H-1  AND  H-2 

These  tables  are  similar;  they  only  differ  in  the  way  values  are  specified  for  the  seven  random  variables 
listed  near  the  end  of  the  input  data  for  the  FULL  FACTORIAL  option,  Table  H-2.  The  test  for  the  FULL 
FACTORIAL  option  is  designed  to  cover  all  aspects  of  the  FRAGHAZ  program  except  crosswind  and  those 
input  paths  unique  to  the  MONTE  CARLO  option.  This  was  done  in  anticipation  of  the  possibility  that  the 
user  might  be  unable  to  satisfy  the  portability  test  for  the  random  number  generator  given  in  Appendix  F.  If 
the  portability  test  cannot  be  satisfied,  then  the  MONTE  CARLO  option  will  have  to  be  checked  with  hand 
cases  using  a  random  number  generator  specified  by  the  user. 

Tables  H-1  and  H-2  are  divided  into  three  parts.  Part  1  contains  the  input  data  for  the  tests  and  a  few 
statements  which  identify  the  current  version  of  the  program;  e.g.,  "Run  contains  fragment  ricochet  routine." 
A  full  description  of  the  input  data  is  contained  in  the  discussion  of  BLOCKS  1  and  2  in  the  DETAILED 
PROGRAM  DESCRIPTION  Section  of  the  main  body.  Note  that  in  the  MONTE  CARLO  option  test  we  used 
the  seed  1234  for  the  random  number  generator.  This  is  necessary  if  the  user  is  to  obtain  the  same  results 
shown  in  Table  H-1. 

The  second  part  of  Tables  H-1  and  H-2  contains  the  initial  and  final  conditions  for  each  trajectory  in 
each  replication  (MONTE  CARLO  option)  or  treatment  (FULL  F ACTORIAL  option).  Each  replication  or 
treatment  has  an  associated  soil  constant,  site  altitude,  and  wind  speed.  These  three  values  pertain  to  all 
trajectories  in  the  replication  or  treatment.  The  headings  for  the  trajectory  tables  are  explained  as  follows: 

FRAG  -  Fragment  number 

E  -  Initial  elevation  angle  (degrees) 

WT  -  Weight  of  the  fragment  in  grains 

A/M  -  average  presented  area  to  mass  ratio  for  the  fragment  (in. 2/lb) 

IV  -  Initial  velocity  of  the  fragment  (ft/s) 

CD  -  Drag  coefficient  for  the  fragment  at  a  Mach  Number  of approximately  0.1.  Afull 

discussion  of  drag  coefficients  is  given  in  the  discussion  for  BLOCK  9  of  the  DETAILED 
PROGRAM  DESCRIPTION  Section  in  the  main  body. 

DIST.N  -  Distance  in  foot  at  impact;  final  impact  for  a  ricocheting  fragment.  It  is  equal  to  the 
square  root  of  the  sum  of  squares  of  range  ( DI(3))  and  crossrange  (DI(7)). 
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VF  -  Velocity  at  impact;  final  impact  for  a  ricocheting  fragment,  (ft/s) 

KE  -  Kinetic  energy  (ft-lbs)  at  impact;  final  impact  for  a  ricocheting  fragment. 

TOF  -  Time  of  flight  for  the  complete  trajectory  (s) 

EF  -  The  absolute  value  of  the  elevation  angle  at  impact;  final  impact  for  a  ricocheting 

fragment,  (deg) 

RANGE  -  Range  component  of  distance  at  impact;  final  impact  for  a  ricocheting  fragment  (DI  (3)). 
(ft) 

XRN  -  Crossrange  at  impact;  final  impact  for  a  ricocheting  fragment  (DI  (7)).  (ft) 

XA  -  Crossrange  angle  (deg).  It  is  equal  to  the  arctan  of  crossrange  (XRN)  divided  by  range  (DI 

(3)). 

XD  -  Displacement  integration  step  at  the  beginning  of  the  trajectory  or  for  the  last  ricochet, 

(ft) 

AR  -  Area  ratio.  This  is  the  ratio  of  the  maximum  presented  area  to  the  average  presented 

area  which  is  used  to  establish  the  minimum  and  maximum  values  of  drag  coefficient  at  a 
Mach  Number  of  approximately  0. 1.  See  the  comments  for  CD  above. 

HO  -  Height  of  the  origin  above  ground  level  at  the  beginning  of  the  trajectory,  (ft) 

RB  -  Number  of  ricochets  (rebounds)  for  the  trajectory. 

The  third  part  of  Tables  H-1  and  H-2  consists  of  the  12  final  output  tables;  three  each  for  range 
increments  of  100,  200,  300  and  400  ft.  These  final  output  tables  are  described  in  the  discussion  of 
BLOCKS-22,  23  and  24  in  the  DETAILED  PROGRAM  DESCRIPTION  Section  of  the  main  body. 

Table  H-3  contains  the  fragmentation  data  for  both  the  MONTE  CARLO  and  FULL  FACTORIAL 
tests.  The  table  is  divided  into  three  parts; 

Part  1  -  The  first  13  values  in  the  table  are  the  fragment  multipliers  as  described  in  Appendix  D. 

Each  multiplier  represents  the  effective  number  of  fragments  for  one  deg  of  azimuth  and 
one  unitor  interaction  area.  The  first  multiplier  is  for  polar  zone  0  to  10  deg,  the  second 
for  polar  zone  10  to  20  deg  and  so  on  to  the  thirteenth  multiplier  which  is  for  polar  zone 
120  to  130  deg. 

Part  2  -  The  next  five  lines  contain  the  five  characteristics  for  each  of  the  five  fragments  used  in 

the  tests.  The  five  values  for  each  fragment  are  described  as  follows: 

Value  1  -  The  upper  angle  for  the  10  deg  polar  zone  containing  the  fragment.  For 

example  an  entry  of  40  would  specify  polar  zone  30  to  40  deg.  Remember 
that  the  elevation  zones  are  derived  from  the  polar  zones  as  follows: 

EL  =  90-PA 
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where 

KL-  The  lower  limit  of  the  10  deg  elevation  zone.  lOL  may  be  as 
negative  as  -40. 

PA  -  L’pper  limit  of  the  10  deg  polar  zone. 

Value  2  -  Weight  of  the  fragment  in  grains. 

Value  3  -  The  average  presented  area  to  mass  ratio  (in2/lb)  which  is  used  in  drag 

calculations. 

Value  4  -  Average  initial  fragment  velocity  (ft/s). 

Value  5  -  The  ratio  of  maximum  presented  area  to  average  presented  area  used  to 

calculate  the  drag  coefficient  at  a  .Mach  Number  of  approximately  0.1. 

Part  3  -  The  last  seven  lines  in  Table  H-3  arc  the  factor  levels  for  the  seven  random  variables  used 

in  the  FULL  FACTORIAL  option  only.  The  values  have  been  selected  to  check  all  paths 
in  the  program  except  crosswind  and  those  paths  unique  to  the  MONTE  CARLO  option. 
The  variables  associated  with  each  line  are; 

Line 
1 
2 

3 

4 

5 

6 
7 

The  "a”  at  the  end  of  each  line  will  produce  a  READ  error  in  line  262  as  shown  in  the 
FRAGHAZ  program  listing  in  Appendix  B.  After  encountering  the  error  the  program  will 
skip  to  the  next  factor  level  line  to  read  the  factor  levels  for  the  next  random  variable. 

The  factor  levels  are  given  as  decimal  fractions  to  indicate  how  far  above  the  random 
variable  minimum  the  value  of  the  random  variable  lies.  For  example,  if  the  range  of 
uncertainty  for  a  random  variable  were  10  to  20,  the  factor  level  0.4  would  define  a  value 
of  14.  The  initial  velocity  is  an  exception  since  this  random  variable  is  distributed 
normally.  The  factor  levels  for  initial  velocity  are  given  in  standard  deviations. 

In  comparing  the  user’s  results  with  Tables  H-1  and  H-2,  the  user  may  find  some  small  dilTerences  due 
to  dilTerences  in  computer  word  size  and  library  functions  such  as  LOG  and  EXP.  Generally,  the  user  should 
expect  the  following  differences: 

Trajectory  Tables  -  Almost  always  exact  -  may  be  olTby  one  in  the  last  digit. 

Output  Table  1  -  Number  of  fragments  should  almost  always  be  exact  -  may  be  off  by  one  or  two  in  the 
last  digit.  For  density  and  probability  of  hit,  values  should  be  good  to  the  fifth  decimal  place. 

Output  Table  2  -  Values  should  be  good  to  the  fourth  decimal  place. 

Output  Table  3  -  For  density,  the  values  should  be  almost  exact  -  may  be  off  by  one  or  two  in  the  last 
digit.  For  probability  of  hit,  the  number  of  units  may  be  offby  one  in  the  first  decimal  place  for  number 
of  units  up  to  50.  For  number  of  units  greater  than  50,  values  should  be  good  to  about  one  percent. 


Random  Variable 
Soil  Constant 
Height  of  Origin 
Initial  Elevation  Angle 
Initial  Velocity 
DragCoelTicient 
Site  Altitude 
Wind  Speed 
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TABLE  H-1.  PROGRAM  TEST  CASE  -  MONTE  CARLO  OPTION 


1  R  GJ  H  :2: 

juantity  -  distance  program  ( t ragment i ng  munitions) 


'Ource  of  -fr-ag  data:  DATA 
Jutput  -file:  LPT  1 
arget  description:  STANDING  MAN 

linimum  soil  canstant=  2.00  Maximum  soil  constant=  2.00 

■lONTE-CARLO  OPTION 

-'•-D  -fragment  tr  a  jector  i  es ,  3-0  man,  2-D  wind 

3D  is  a  -function  of  -fragment  ma>;  to  avg  presented  area  ratio 

Pun  contains  -fragment  ricochet  routine 

variable  air  density,  altitude,  and  sound  speed 

£jectian  zone  size=  10  degrees 

Azimuth  sector  size=  10  degrees 

Number  o-f  units  or  interaction  areas=  46 

Number  o-f  -fragment  multipliers^  13 

rragment  hazard  criteriQn=  5S.  0  -ft  — lbs 

-^'ercenti  1  e=  BO  >, 

MONTE  CARLO  SEED=  1234 

Minimum  altitude  o-f  ammo  storage  site=  1000.000  -feet 

Maximum  altitude  of  ammo  storage  site=  1000.000  feet 

Height  of  ammo  stack=  4.50  feet 

Stac);  inert  ground  standoff  =  .50  feet 

Number  of  fragments=  5 

Maximum  computation  range:  2400  feet 

Dimensions  of  the  target  (feet);  HM=  5.72  WM=  1.00  DM=  .55 

Hazard  densitv'  criterion=  .0016667  frags/sqft 

Hazard  probability  of  hit  c.riterion=  .0100000 

Minimum  wind  speed=  30.00  feet/second 

Maximum  wind  speed=  30.00  feet/second 

Wind  direction=  45.00  deg  (0=tailwind) 


Fragment  multipliers 

.01000  .02000  .03000  .04000  .05000  .06000  .07000  .08000  .09000 

.10000  .11000  .12000  .13000 

NO.  OF  REPLICATIONS  =  16 

NO.  OF  REPLICATIONS  PRINTED  =  16 


REPLICATION  (  1  ) 


Sail  constant=  2.000  Altitude=  1000.000  feet  Wind  speed=  30.000  feet/second 


FRflB 

E 

81 

A/H 

IV 

CD 

DI5TN 

VF 

KE 

TOF 

EF 

RAN6E 

IRK 

lA 

ID 

AR 

HO 

RB 

1 

U% 

1000.0 

16.00 

1967 

.51 

1126 

29.6 

2.0 

4.69 

17.1 

1124 

64 

3.3 

49 

1.10 

2.24 

3 

2 

-7.58 

1000.0 

12.00 

2974 

.80 

1207 

120.2 

32.1 

4.43 

31.0 

1204 

CD 

3.9 

36 

1.25 

2.14 

1 

3 

86.50 

500.0 

10.00 

1874 

.98 

546 

117.0 

15.2 

16.31 

75.0 

438 

325 

36.6 

50 

1.70 

4.39 

0 

4 

11.78 

500.0 

7.00 

1012 

.66 

1697 

158.5 

27.9 

5.88 

31.2 

1694 

90 

3.1 

41 

1.30 

2.43 

0 

5 

-37.70 

500.0 

6.00 

3116 

.94 

2 

3103.0 

9999.9 

.00 

37.7 

2 

0 

.0 

1 

1.50 

1.18 

0 

H-6 


NSWCTR  87-59 


REPLJ CATION  (  2  ) 


Soil  constant^  2.000  Altitude-  1000.000  feet  Wind  speeds  30.000  feet/second 


FRA6 

i 

8T 

A/N 

IV 

CD 

DISTN 

Vf 

r.t 

TDF 

EF 

RANGE 

IRN 

lA 

ID 

M. 

«D 

RS 

1 

5.71 

1000.0 

16.00 

2101 

.59 

1046 

136.2 

41.2 

3.34 

20.7 

1044 

61 

3.3 

30 

1.10 

3.97 

0 

2 

-.60 

1000.0 

12.00 

3037 

.73 

1234 

43.0 

4.1 

4.61 

13,9 

1232 

69 

3,2 

44 

1.25 

2.14 

4 

3 

B6.4I 

500.0 

10.00 

1994 

1.23 

507 

105.2 

12.3 

15.24 

73.3 

404 

307 

37,3 

so 

1.70 

3.55 

0 

4 

15.24 

500,0 

7.00 

1024 

.81 

1619 

139.4 

21.6 

6.65 

40.5 

1616 

109 

3.9 

46 

1.30 

3.4J 

0 

5 

-37.65 

500.0 

6.00 

2847 

.96 

3 

2824.8 

8857.4 

.00 

37,6 

3 

0 

.0 

2 

1.50 

2.15 

0 

REPLICATION  ( 

3 

) 

Soil 

canstant= 

2 .  000 

A1 ti tude= 

1 000 . 

000  feet 

Wi  nd 

speed 

1  = 

30 . OOO 

f  eet/second 

FRAG 

E 

8T 

A/H 

IV 

CD 

DISTN 

VF 

HE 

TOF 

EF 

RANGE 

!RN 

lA 

ID 

AR 

HO 

RB 

1 

s.ai 

1000.0 

16.00 

1942 

.56 

1055 

140.3 

43.7 

3.33 

19,9 

1053 

60 

3.2 

30 

1.10 

1.87 

8 

2 

-5.78 

1000.0 

12.00 

2973 

.57 

1467 

144.6 

46.4 

4.49 

26.1 

1465 

83 

3.2 

34 

1,25 

2.77 

1 

3 

80.31 

500.0 

10,00 

1983 

1.46 

584 

97.5 

10.6 

14.22 

71.7 

509 

288 

29.5 

SO 

1.70 

3.99 

0 

4 

11.69 

500.0 

7.00 

994 

.77 

1530 

148.6 

24.5 

5.57 

31.4 

1528 

87 

3.3 

41 

1.30 

1.00 

0 

5 

-32.99 

500.0 

6.00 

2897 

.99 

4 

2865.3 

9113.5 

.00 

33.0 

4 

0 

.0 

3 

1.50 

2.61 

0 

REPLICATION  ( 

4 

> 

Soil 

canstant= 

2.000 

Altitude= 

1000. 

000  -Feet 

Wi  nd 

speed 

= 

30.000 

feet/second 

FRA6 

E 

8T 

m 

IV 

CO 

DISTN 

VF 

KS 

TOF 

EF 

RANEE 

IRN 

lA 

ID 

AR 

HO 

IS 

1 

4.98 

1000.0 

16.00 

2052 

.49 

1102 

157.0 

54.7 

3.14 

16.8 

1101 

56 

2.9 

29 

1.10 

1.82 

0 

2 

-5.66 

1000.0 

12.00 

2964 

.71 

1281 

130.7 

37.9 

4.21 

27.0 

1279 

79 

3.5 

34 

1.25 

2.02 

1 

3 

85.97 

500.0 

10.00 

1846 

1.22 

510 

105.8 

12.4 

15.11 

73.4 

411 

303 

36.4 

50 

1.70 

1.85 

0 

4 

16.90 

500.0 

7.00 

1022 

.92 

1527 

131.3 

19,1 

6.84 

44.1 

1523 

114 

4.3 

48 

1.30 

.73 

0 

5 

-38.76 

500.0 

6.00 

2965 

.95 

3 

2938.7 

9586.3 

.00 

38.8 

3 

0 

.0 

3 

1.50 

2.54 

0 

REPLICATION  ( 

5 

) 

Soil 

canstant= 

2.  000 

A1 1 i tude= 

1000. 

OOO  -feet 

Wind 

speed 

= 

30.000 

f eet/second 

FRAB 

E 

MT 

A/N 

IV 

CD 

DISTN 

VF 

KE 

TOF 

EF 

RANGE 

IRN 

lA 

ID 

AR 

HO 

RS 

1 

5.35 

1000.0 

16.00 

2021 

.52 

1089 

150.0 

50.0 

3,23 

18.0 

1087 

58 

3.0 

29 

1.10 

1.11 

0 

2 

-2.98 

1000.0 

12.00 

3090 

.89 

1068 

131.9 

38.6 

3.20 

20.0 

1066 

60 

3.2 

30 

1.25 

3.87 

1 

3 

80.50 

500.0 

10.00 

2067 

1.32 

614 

102.0 

11.5 

14.78 

72.5 

536 

299 

29.1 

50 

1.70 

1.96 

0 

4 

15.13 

500,0 

7,00 

1020 

,78 

1649 

141.6 

22.2 

6.68 

40.0 

1646 

109 

3.8 

46 

1.30 

3.06 

0 

5 

-39.44 

500.0 

6.00 

2899 

.85 

4 

2869.1 

9137.7 

.00 

39.4 

4 

0 

.0 

4 

1.50 

3,22 

0 

REPLICATION  v 

6 

) 

Soi  1 

constant= 

2.000 

A1 ti tude= 

1000. 

OOO  -feet 

Wind 

speed 

= 

30.000 

•f  eet/second 

FRAfi 

E 

8T 

A/N 

IV 

CO 

DISTN 

VF 

KE 

TOF 

EF 

RANGE 

IRN 

lA 

10 

Ml 

m 

IS 

1 

4.18 

1000.0 

16.00 

2194 

.49 

1078 

167.8 

62.5 

2.85 

14.3 

1076 

51 

2.7 

27 

1.10 

2.09 

0 

2 

-3.86 

1000,0 

12.00 

2986 

.74 

1219 

136.0 

41.1 

3.70 

22.6 

1217 

69 

3.2 

31 

I.2S 

3.81 

1 

3 

85.18 

500.0 

10.00 

1940 

.94 

591 

118.8 

15.7 

16.55 

75.2 

491 

330 

33.9 

50 

1.70 

4,32 

0 

4 

18,37 

500.0 

7.00 

988 

.93 

1528 

130.3 

18.8 

7.18 

46.8 

1523 

121 

4.5 

50 

1.30 

4.47 

0 

5 

-33.35 

500.0 

6,00 

2996 

,85 

1 

2989.6 

9921.2 

.00 

33.3 

1 

0 

.0 

0 

3.50 

.56 

■0 

H 
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REPLICATION  (  7  ) 


Soi  1 

constant= 

2.  000 

A1 t i tude= 

1000. 

000  Teet 

Wi  nd 

speed 

= 

30.000 

f  eet/ 

second 

FRAB 

E 

8T 

m 

IV 

CD 

DISTN 

VF 

r.E 

TOF 

EF 

RAN6E 

IRN 

lA 

ID 

AR 

KD 

RB 

1 

1.53 

1000.0 

14.00 

2028 

.52 

1131 

35.4 

2.8 

4.44 

15.8 

1129 

45 

3.3 

47 

1.10 

3.47 

T 

2 

-5.89 

1000.0 

12.00 

2977 

.41 

1403 

139.4 

43.1 

4.41 

24.4 

1401 

82 

3.3 

34 

1.25 

3.40 

1 

3 

86. 8i 

500.0 

10.00 

1895 

1.38 

471 

99.8 

11.1 

14.52 

72.4 

349 

293 

38.4 

50 

1.70 

1.45 

0 

4 

14.55 

500.0 

7.00 

947 

.74 

1492 

143.4 

22.9 

7.04 

41.8 

1488 

113 

3.8 

48 

1.30 

2.94 

0 

5 

-31.29 

500.0 

4.00 

2927 

1.35 

7 

2843.1 

9099.2 

.00 

31.3 

7 

0 

,0 

4 

1.50 

4,04 

0 

REPLICATION  ( 

8 

) 

Soi  1 

constant= 

2. 000 

A1 ti tude= 

1000. 

000  -Feet 

Wi  nd 

speed 

= 

30. 000 

f eet/second 

FRAB 

E 

tIT 

A/M 

IV 

CD 

DISTN 

VF 

KE 

TOF 

EF 

RAN8E 

IRN 

lA 

ID 

AR 

HO 

RB 

1 

5.23 

1000.0 

14.00 

1998 

.55 

1042 

144.8 

47.9 

3.13 

17.9 

1041 

54 

3.1 

29 

1.10 

1,31 

0 

2 

-8.17 

1000.0 

12.00 

2954 

.89 

1131 

113.4 

28. 4 

4.44 

32.9 

1128 

83 

4.2 

37 

1.25 

.54 

1 

3 

84.82 

500.0 

10.00 

1782 

1.43 

440 

98.3 

10.7 

14.25 

72.2 

341 

284 

38.5 

50 

1.70 

3,17 

0 

4 

10.89 

500.0 

7.00 

997 

.83 

1443 

144.9 

24.0 

5.22 

29.7 

1441 

81 

3.2 

39 

1.30 

.91 

0 

5 

-31.44 

500.0 

4.00 

2923 

.94 

3 

2898.4 

9324.3 

.00 

31.7 

3 

0 

.0 

3 

1.50 

1,95 

0 

REPLICATION  ( 

9 

Soi  1 

constant= 

2.  000 

A1 ti tude= 

1 000 . 

000  feet 

Wi  nd 

speed 

= 

30. 000 

f eet/second 

FRAB 

E 

8T 

A/H 

IV 

CD 

DISTN 

VF 

KE 

TOF 

EF 

RANEE 

IRN 

lA 

ID 

AR 

HO 

RB 

1 

1.24 

1000.0 

14.00 

1983 

.51 

1141 

47.5 

5.0 

4.59 

13.4 

1139 

44 

3.3 

43 

1,10 

1.50 

J 

1 

-2.71 

1000.0 

12.00 

3053 

.70 

1212 

149.8 

49.8 

3.30 

18.2 

1210 

41 

2.9 

29 

1.25 

3.57 

1 

3 

80.90 

500.0 

10.00 

1944 

1.45 

539 

92.3 

9.5 

13.42 

70.7 

443 

274 

30.8 

50 

1.70 

2.94 

0 

4 

14.05 

500.0 

7.00 

1084 

.82 

1441 

138.1 

21.2 

4.94 

42.7 

1457 

114 

4.0 

47 

1.30 

2.12 

0 

5 

-34.24 

500.0 

4.00 

3071 

.93 

1 

3044.1 

9999.9 

,00 

34,2 

1 

0 

.0 

0 

1.50 

.59 

0 

REPLICATION  ( 

10 

) 

Soi  1 

constant= 

2 . 000 

A1 ti tude= 

1000. 

000  feet 

Wi  nd 

speed 

= 

30 . 000 

f eet/second 

FRAB 

E 

8T 

A/M 

IV 

CO 

DISTN 

VF 

KE 

TOF 

EF 

RANEE 

IRN 

lA 

ID 

AR 

HO 

RB 

1 

8.13 

1000.0 

14.00 

2049 

.42 

1100 

121.3 

32.7 

4.04 

28.1 

1098 

75 

3.9 

35 

1.10 

1.29 

0 

2 

-3.27 

1000.0 

12.00 

3011 

.88 

1083 

129.5 

37.3 

3.34 

21.3 

1081 

43 

3.3 

30 

1.25 

3.00 

1 

3 

85.17 

500.0 

10.00 

2044 

1,48 

472 

91.4 

9.3 

13.77 

70.7 

380 

280 

34.4 

50 

1.70 

4.07 

0 

4 

10.79 

500.0 

7.00 

1040 

.80 

1495 

148.9 

24.4 

5.30 

29.8 

1493 

83 

3.2 

39 

1.30 

1.58 

0 

5 

-37.10 

500.0 

4.00 

3048 

.95 

4 

3032.4 

9999.9 

.00 

37.1 

4 

0 

.0 

4 

1.50 

3.11 

0 

REPLICATION  ( 

11 

) 

Soil 

constant= 

2.  GOO 

A1 ti tude= 

1 000 . 

000  feet 

Wi  nd 

speed 

= 

30.000 

feet/ 

second 

FRAB 

E 

KT 

A/M 

IV 

CD 

DISTN 

VF 

KE 

TOF 

EF 

RANEE 

IRN 

lA 

ID 

AR 

HO 

R3 

1 

5.42 

1000.0 

14.00 

1945 

.59 

1013 

141.2 

44.3 

3.14 

18.4 

1011 

54 

3.2 

30 

1.10 

1.15 

0 

2 

-8.10 

1000.0 

12.00 

3075 

.49 

1338 

124.8 

35.7 

4.78 

31.8 

1335 

89 

3.8 

37 

1.25 

1.58 

1 

3 

84.21 

500.0 

10.00 

2003 

1.40 

494 

93.4 

9.7 

13. 88 

71.1 

404 

281 

34.7 

50 

1.70 

1.55 

0 

4 

11.44 

500.0 

7.00 

1027 

.84 

1453 

141.5 

22.2 

5,47 

32.5 

1451 

87 

3.4 

41 

1.30 

3.48 

0 

5 

-38.01 

500.0 

4.00 

2852 

1.10 

4 

2817.4 

8811.3 

.00 

38.0 

4 

0 

.0 

4 

1.50 

3.09 

C 

H-8 
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RET-'LICATION  ( 

12 

> 

Soi  1 

cons: 

tant  = 

2.000 

A1  ti  tude^: 

1000. 

000  -f  eet 

Wi  nd 

SF)eed 

= 

30.000 

■feet/ 

second 

FRA6 

E 

RT 

A/H 

IV 

CD 

DISTN 

VF 

HE 

TOF 

EF 

RANGE 

IRN 

lA 

ID 

AR 

HO 

R8 

1 

5.78 

1000.0 

16.00 

1954 

.56 

1057 

140.1 

43.6 

3.34 

20.0 

1055 

60 

3.3 

30 

1.10 

2.61 

0 

2 

-1.09 

1000.0 

12.00 

2891 

.61 

1329 

62.3 

8.6 

4.53 

13.6 

1327 

67 

2.9 

43 

1,25 

2.59 

3 

3 

89.53 

500.0 

10.00 

2000 

1.24 

443 

104.7 

12.2 

15.23 

73.4 

319 

307 

43.8 

50 

1,70 

4.19 

0 

4 

13.15 

500.0 

7.00 

973 

.95 

1385 

133.1 

19.7 

5.70 

36.0 

1382 

92 

3.8 

43 

1,30 

3.46 

0 

5 

-35.67 

500.0 

6.00 

2850 

1.13 

6 

2796.5 

8680.7 

.00 

35.7 

6 

0 

.0 

6 

1,50 

4.43 

0 

REPLICATION  ( 

13 

) 

Soi  1 

constant= 

2.000 

01 ti tude= 

1000. 

000  -feet 

Wi  nd 

speed 

= 

30.000 

f eet/second 

FRA6 

E 

RT 

A/K 

IV 

CD 

DISTN 

VF 

KE 

TOF 

EF 

RANGE 

XRK 

lA 

ID 

AR 

HO 

RB 

1 

4.76 

1000.0 

16.00 

2101 

.55 

1048 

150.5 

50.3 

3.05 

17.2 

1047 

55 

3.0 

28 

1.10 

4,43 

0 

2 

-4.99 

1000.0 

12.00 

3068 

.63 

1384 

140.8 

44.0 

4.21 

25.0 

1381 

78 

3.2 

33 

1,25 

3,80 

1 

3 

81.13 

500.0 

10.00 

1976 

1.15 

637 

108.5 

13,1 

15,40 

73.6 

557 

309 

29.1 

50 

1.70 

1.13 

0 

4 

19.01 

500.0 

7,00 

944 

.66 

1878 

149.6 

24.8 

7.99 

45.8 

1874 

128 

3.9 

51 

1.30 

2.84 

0 

5 

-35.51 

500.0 

6.00 

2865 

1,31 

2 

2842,5 

8969.2 

.00 

35.5 

2 

0 

,0 

2 

1.50 

1.62 

0 

REPLICATION  ( 

1.4 

) 

Soil 

constant= 

2. 000 

A1 ti tude= 

1000. 

000  -feet 

Wi  nd 

speed 

= 

30.000 

f eet/second 

FAAG 

E 

RT 

A/H 

IV 

CD 

DISTN 

VF 

KE 

TDF 

EF 

RANGE 

IRN 

lA 

ID 

AR 

HO 

1 

4.66 

1000.0 

16.00 

1927 

.52 

1036 

157.2 

54.9 

2.95 

15.8 

1035 

52 

2.9 

28 

l.IO 

2.37 

i 

0  i 

2 

-6.36 

1000.0 

12.00 

2858 

.85 

1144 

119.5 

31,7 

4.11 

28.8 

1142 

77 

3.9 

35 

1.25 

1.51 

1  i 

3 

86.10 

500.0 

10.00 

1925 

1.64 

455 

92.6 

9.5 

13.74 

71.0 

360 

278 

37,7 

50 

1.70 

3,33 

0 

4 

12,35 

500.0 

7.00 

976 

.85 

1457 

141,2 

22.1 

5.61 

33,4 

1455 

89 

3.5 

42 

1.30 

1.57 

0 

5 

-33.26 

500.0 

6.00 

2849 

1.07 

2 

2830.7 

8894.7 

.00 

33.3 

2 

0 

,0 

2 

1.50 

1.47 

0 

REPLICATION  ( 

15 

) 

Soil 

constant= 

2.000 

A1 ti tude= 

1000. 

000  -f  eet 

Wi  nd 

speed 

= 

30, 000 

feet/secand  i 

1 

FRA5 

E 

RT 

A/H 

IV 

CD 

DISTN 

VF 

KE 

TOF 

EF 

RANGE 

IRN 

lA 

ID 

AR 

HO 

RB  1 

1 

3.24 

1000.0 

16.00 

1987 

.47 

1124 

88.9 

17.5 

3.82 

14,3 

1123 

57 

2.9 

4! 

1.10 

2.47 

i 

1  1 

2 

-7.28 

1000.0 

12.00 

2958 

.87 

1136 

116.3 

30.0 

4.24 

30.5 

1134 

80 

4.0 

36 

1.25 

2.69 

1  1 

3 

89.37 

500.0 

10.00 

1999 

1.31 

438 

102.1 

11.6 

14.94 

72.9 

318 

301 

43.5 

50 

1.70 

3.94 

0  i 

4 

18.65 

500,0 

7,00 

979 

.69 

1848 

147.3 

24.1 

7.86 

45.6 

1843 

127 

4.0 

51 

1.30 

.84 

0 

5 

-32,22 

500.0 

6.00 

2788 

1.01 

2 

2774.4 

8544.5 

.00 

32.2 

2 

0 

.0 

1 

1.50 

1.15 

®  1 

REPLICATION  ( 

16 

) 

i 

1 

f 

Soil 

cons 

tant= 

2.  000 

A1 ti tude= 

1000. 

000  -feet 

Wi  nd 

speed 

= 

30. 000 

1 

■feet /second  | 

1 

FRAS 

E 

RT 

A/H 

IV 

CD 

DISTN 

VF 

KE 

TOF 

EF 

RANGE 

IRN 

lA 

ID 

AR 

HO 

RB 

1 

4.84 

1000.0 

16.00 

2003 

.54 

1042 

150.3 

50.2 

3.06 

17.2 

1040 

55 

3.0 

28 

1.10 

4.37 

0 

2 

-4,43 

1000.0 

12,00 

3084 

.85 

1140 

125.1 

34.7 

3.71 

24.6 

1138 

70 

3.5 

32 

1.25 

4.40 

1 

3 

80.45 

500.0 

10.00 

2012 

1.62 

554 

93.1 

9.6 

13.73 

70.9 

479 

279 

30.2 

SO 

1.70 

1.75 

0 

4 

19.97 

500.0 

7,00 

995 

.90 

1581 

131.5 

19.2 

7.62 

49.2 

1576 

129 

4.7 

52 

1.30 

1.42 

0 

5 

-38,26 

500,0 

6.00 

2893 

1.06 

5 

2847.3 

8999.0 

.00 

38.3 

5 

0 

.0 

5 

1.50 

4.16 

0 

H-9 
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TABLE  1  Incrfient  =  100  Tett  Nuiber  oT  Units'  44 


Distince 

Total 

Hazard 

-  Total  Nueber 

of  Final  Sround  lipacts  - 

(Teetl 

Total  Censity 

Total 

Hazard 

Density 

Haz ard 

10  Degree  Aziiuth  Sector 

Froi 

To 

No.  Frags/sqft 

P-hit 

No. 

Frags/sgft 

P-hit 

Hin 

Avg 

Kax 

0 

100 

188.60  1.019557 

.995384 

183.60 

1.019557 

.995384 

59.80 

59,80 

59.80 

100 

200 

25.30  .097241 

.298157 

25.30 

.087241 

.298157 

.00 

.00 

.00 

200 

300 

8.34  .022060 

.091629 

8.34 

.022060 

.091629 

.00 

.00 

.00 

300 

400 

2.88  .005699 

.025393 

2.88 

.005699 

.025393 

.00 

.00 

.00 

400 

500 

4.89  .004892 

.022179 

2.88 

.004627 

.021573 

.00 

2.01 

4.60 

500 

600 

2.01  .000216 

.000476 

.00 

.000000 

.000000 

.00 

2.01 

4.60 

400 

700 

3.16  .002345 

.011969 

2.59 

.002293 

.011855 

.00 

.57 

4.60 

700 

800 

10.64  .006570 

.034878 

10.64 

.006570 

.034878 

.00 

.00 

.00 

800 

900 

8.05  .003840 

.020700 

7.62 

.003601 

.019421 

.00 

.00 

.00 

900 

1000 

13.23  .004382 

.023962 

6.76 

.002525 

.013739 

.00 

.00 

.00 

1000 

1100 

52.90  .011338 

.061625 

6.11 

.001447 

.008013 

.00 

31.63 

87.40 

1100 

1200 

38.52  .006930 

.037277 

.00 

.000000 

.000000 

.00 

27.03 

87.40 

1200 

1300 

17.25  .002738 

.014844 

.00 

.000000 

.000000 

.00 

14.38 

46.00 

1300 

1400 

13.80  .001695 

.008994 

.00 

.000000 

.000000 

.00 

10.93 

82.80 

1400 

1500 

14.95  .001107 

.005780 

.00 

.000000 

.000000 

.00 

14.95 

46.00 

1500 

1600 

9.20  .000484 

.002216 

.00 

.000000 

.000000 

.00 

9.20 

36.80 

1600 

1700 

11.50  .000598 

.002857 

.00 

.000000 

.000000 

.00 

11.50 

36.80 

1700 

1800 

.00  .000000 

.000000 

.00 

.000000 

.000000 

.00 

.00 

.00 

laoo 

1900 

4.60  .000189 

.000829 

.00 

.000000 

.000000 

.00 

4.60 

36.80 

1900 

2000 

.00  .000000 

.000000 

.00 

.000000 

.000000 

.00 

.00 

.00 

2000 

2100 

.00  .000000 

.000000 

.00 

.000000 

.000000 

.00 

.00 

.00 

2100 

2200 

.00  .000000 

.000000 

.00 

.000000 

.000000 

.00 

.00 

.00 

2200 

2300 

.00  .000000 

.000000 

.00 

.000000 

.000000 

.00 

.00 

.00 

2300 

2400 

.00  .000000 

.000000 

.00 

.000000 

.000000 

.00 

.00 

.00 

Nuiber 

of  trajectories  «itb  distance  greater  than  2400  feel'  0 

Distance 

TABLE  2 

Increeent' 

100  feet 

Nuiber  of 

Units'  46 

..........  uensiiy  irrdys/bqn./ 

(feet) 

Nax 

SOI 

501 

Hin 

Hax 

801 

501 

Hin 

50 

1.352684 

1.133668 

.932629 

.844622 

.999508 

.998272 

.994468 

.990744 

150 

.325103 

.176591 

.000000 

.000000 

.843791 

.635624 

.000000 

.000000 

250 

.  127613 

.000000 

.000000 

.000000 

.518014 

.000000 

.000000 

.000000 

350 

.091186 

.000000 

.000000 

.000000 

.406319 

.000000 

.000000 

.000000 

450 

.074033 

.000000 

.000000 

.000000 

.345160 

.000000 

.000000 

.000000 

550 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

650 

.036684 

.000000 

.000000 

.000000 

.  189808 

.000000 

.000000 

.000000 

750 

.036063 

.022153 

.000000 

.000000 

.186907 

.119523 

.000000 

.000000 

850 

.024130 

.000000 

.000000 

.000000 

.129296 

.000000 

.000000 

.000000 

950 

.021390 

.000000 

.000000 

.000000 

.114876 

.000000 

.000000 

.000000 

1050 

.013625 

.000000 

.000000 

.000000 

.075269 

.000000 

.000000 

.000000 

1150 

.000000 

.000000 

.000000 

.000000 

.000000 

-OOOOOO 

.000000 

.000000 

1250 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

1350 

.000000 

.000000 

.000000 

.000000 

.OOWOOO 

.000000 

.000000 

.000000 

1450 

,000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

1550 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

1650 

,000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

1750 

.000000 

,000000 

.000000 

.000000 

.000000 

.000000 

.000000 

,000000 

1850 

,000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

1950 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

2050 

,000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

2150 

,000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

2250 

,000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

2350 

■000000 

,000000 

.MOOOO 

.000000 

.OOOOOO 

.000000 

.oocooo 

.000000 

H  10 
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TABlE  3  lncreieiit=  IOC  feet 


HAZAAD 

. 

KUnSEfi  Of  UNITS 

TO  JUST  EtCEED  - 

UlotfiNLL 

IFEETI 

fllK 

8;'5 

5'Jl 

not 

NIN 

80t 

501 

NAl 

50 

.07 

.','8 

.09 

.K 

.07 

.08 

.10 

.11 

15C 

.25 

.44 

999959.00 

999959. yO 

.  2o 

.47 

95  =  955. '0'.! 

999999,00 

250 

.61 

999999. gO 

999999. gO 

9999V9.'jO 

.64 

999595. Ou 

999999. Ou 

999999.00 

350 

.85 

999999.00 

999°?9.00 

99=999.00 

.9'j 

999999.00 

999995.0''' 

999999.00 

450 

1.05 

999999.00 

959999.00 

999999. uO 

l.lu 

999979,0.; 

9=9=99. Go 

999999,00 

550 

999999. i.'0 

999999.,.0 

9'.'9999.g0 

995999. gO 

599999.  O'. 

999999,00 

999599.00 

999999.00 

650 

2.10 

999999. 00 

999999.  :tO 

999999.,,;. 

2.21 

999=99.00 

995995.00 

999995.00 

750 

2.14 

3.4.’ 

999999. vv 

959999.00 

2.24 

3.64 

999999.00 

9995=9.00 

B50 

3.19 

'?9'79‘v9,.)0 

999999.00 

999999.00 

3.35 

999979 . 00 

999599.00 

999999,00 

950 

3.59 

'799999. 00 

999959. go 

999990.00 

3.89 

599599.00 

9599=7.00 

995990.00 

105'. 

5.04 

9999^9.00 

999999.00 

999999. '.lO 

5.92 

999999.00 

999999, 00 

999999.00 

1150 

999999.00 

999=';9.00 

999959.0; 

999599.00 

9999=9.00 

797999.00 

=99=99.00 

999999,00 

1250 

999999.00 

999999.00 

999999,00 

999999. 00 

999999.00 

999999.  C".i 

999995.00 

999999.00 

1 350 

999999.00 

99”99.0C 

599999.00 

999599.00 

9=9999.01.' 

999999.00 

999959, ;; 

599999.00 

1450 

9''9999.00 

999999, mO 

999999.00 

995999. uC 

999999.00 

9995=9.00 

599999.00 

999999.00 

155i' 

999999.00 

995999.00 

999999.00 

999999.00 

999999. Cu 

999999. '00 

999997.00 

999999,00 

lb50 

?;9999  -'111 

999999.00 

999999.00 

595=99. 'TO 

999999.00 

999959.00 

999599. '00 

999999.00 

1750 

999999. uO 

999999.00 

999999.00 

999999. gO 

999999. '20 

599999.00 

999999.00 

999999.00 

1850 

999999.00 

999999.00 

999999.00 

999=99.00 

999999.00 

=99999.00 

999995.00 

999999. Ou 

1950 

999999. bO 

999999  00 

999959.00 

999999.00 

999999.00 

599999.00 

999999.00 

999959,00 

2050 

999999.00 

999999.00 

999999. 'gO 

999999.00 

999999. Ou 

999999.00 

999999.00 

999995.00 

2150 

999999.00 

999999.00 

599999.00 

955999.00 

999599.00 

99999". 00 

999999.00 

999999.00 

2-5U 

999999, go 

999999,00 

999799.00 

999999.00 

999999.0V 

990=59. 00 

900999, 

99=999,00 

2350 

999999.00 

999999.00 

999999.00 

995999.1,0 

999999.00 

99995=. 00 

9999=9.00 

999999.00 

The  999999.00  entries  signu 

fy  that  the  nuiber  of  units  required  is  infinite. 

thdt 

IS,  the  Hizard  Density  and 

f-hit  arc  both  zero, 

Ki.’ird 

Density  CritErion=  .001667  frag/sqTt 

Hatard  P-hit  Criterion" 

'  .010 

TABLE 

1  1.1' 

treient  =  2uO 

(eet 

N'gibei  of 

Units"  46 

Di  sla.n 

:? 

’ntal 

Harard 

Final 

Ground  Iipacts  - 

itect 

) 

Total 

Density 

Total 

H,;ard 

Density 

Haiard 

I'j  Degree 

A:i«uth  Sector 

f'roi 

To 

No. 

Frags'sqtt 

P-hit 

No. 

Fraqs/sqft 

F  -hit 

hin 

Av^ 

flax 

u 

2'oO 

213.90 

. 320320 

.472464 

2l3.9u 

.320320 

.472464 

59.80 

55.80 

55.80 

200 

400 

11.21 

,012516 

.052992 

11.21 

.'.I12516 

.052=52 

.00 

.00 

.00 

400 

600 

6.90 

.  C"j232u 

.Ok243 

2.88 

.vC'20B2 

.005708 

.00 

4,03 

5.20 

600 

BOO 

13.80 

.004ii''8 

.024241 

13.23 

.'.'04584 

.024186 

.00 

.57 

4.60 

BOO 

lOOU 

21.28 

,004126 

.022422 

14.30 

.'O'u;033 

.016422 

.00 

.  00 

.00 

lOOU 

1200 

91.43 

.005034 

.'148898 

6.11 

,u00o9( 

.003824 

.00 

58.65 

174,80 

1200 

I40u 

31.  ub 

.002196 

.01  1807. 

.00 

.'OOOO'JO 

.OOOOOu 

.00 

25.30 

128.80 

1400 

1600 

24.  IS 

.000785 

.'-■03939 

.C'J 

.uOOOOO 

.CuOuOO 

.00 

24.15 

82.80 

!6uU 

IBOO 

11.50 

.00029U 

.001387 

.00 

.OOuOOO 

.  OOOvO'J 

.00 

11.50 

36.80 

IBOU 

200u 

4,60 

,000092 

.00u4u4 

.Ou 

.000000 

.000000 

.00 

4.60 

36.80 

2000 

220u 

.UO 

. OOOOOu 

.Ou 

.UOOOC'O 

.COOoOO 

.Ou 

.00 

.00 

2200 

2400 

.uO 

.  OOuOO'"' 

.OUuOO'u 

.00 

.OOOOuu 

.O'OOuOO 

.0‘1 

.00 

.00 

H  I  I 
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”  c  - 

Increient- 

=  2'jO  feet 

Nuiber  of 

Dnitb^  46 

- 

iFi 

(feet! 

Na- 

BOX 

501 

Mir, 

fldX 

eol 

501 

Kin 

IjO 

.5B1999 

.415860 

.2)3157 

.211156 

.082720 

.726286 

.248617 

. 247606 

300 

.  I'}t364 

.'■'00000 

. OOOOOO 

.  OOOOOO 

.452858 

. OOOOOO 

.oooooo 

. OOOOOO 

5v0 

.033315 

.dOOCvO 

, OuOOOO 

. bOOOOO 

.155322 

.'TOOCDO 

.000000 

.oooooo 

700 

,  u3b3M 

.ij  119.9 

, oooooo 

.  uOOOyO 

.180254 

.06403u 

.OOOoO'j 

.OoOOOu 

900 

.022684 

.  '-‘O'JO'jO 

, oooooo 

.  OOl'OoO 

.121685 

. OuOOCO 

.  OO'D'jOO 

, oooooo 

HOC- 

.006503 

.  liOOOOO 

,000000 

.  OOOOOO 

.035924 

.  OuDO'!  ■ 

.oooooo 

. oooooo 

1300 

.OuOOOu 

•OOOOOO 

.  L'iiO'lOO 

•OOOOOO 

.  O'jt'ODO 

.OOOOv.' 

.ooooo;' 

, OOOOuo 

IjuO 

. 000000 

.  li'JU’JUU 

, OOOOOu 

. oOOCOO 

.  OOOOO'J 

. OOOOOu 

. oooooo 

.oooooo 

1  7'jO 

. oooooo 

.OOOOuu 

.  O'lOOOO 

.OOOOOO 

.OOOOOO 

. OOOOOO 

.  OOO'.'UO 

, oooooo 

1900 

. oooooo 

.OOOOOO 

,  O'jOOOO 

.OOOOl'O 

.  oooooo 

. oooooo 

.oooooo 

. oooooo 

2100 

, OOunOO 

.oooooo 

, OoOOOO 

.  ijOOO'jC 

.0  'DOOO 

.OuCOOO 

. oooooo 

.oooooo 

23-jO 

, OOOOOO 

.oooooo 

.  OoOOOO 

.<■■00000 

.  oooooo 

. oooooo 

. OOOOOO 

.Ot'O'jOO 

TABLE  j  lnr.-e»tnt=  200  ieet 


H.AIAf.D  . .  Klif.'EP  Of  UNITE  TQ  .TJSI  EXCEED . 

DISTANCE  .  DENSITi  CR.IERION . —  . f-HIT  CRllEftlL. 


(FEET! 

NIN 

602 

5'1 

I'D! 

HIN 

ecl 

501 

liMf. 

luO 

.14 

.19 

.34 

.15 

.21 

.38 

.42 

300 

.73 

9999=i9.00 

799999,00 

999799.00 

.7/ 

999999.00 

999999. DO 

999999,00 

5u0 

2.31 

9999*79.00 

999999.00 

999999.0) 

2.44 

999999.0" 

999999.00 

999999.00 

700 

2.  !2 

6.4.' 

77  77Y'(,nO 

799797."'; 

7.73 

6.79 

999999,00 

999099,, Vj 

900 

3.39 

999979.00 

,99999.00 

999999. ';0 

3.57 

999999. ')■) 

999"''9,';C 

999999, 'DO 

lloO 

11,80 

999999. uO 

999999.00 

99V999.0) 

12.39 

9 1 9999. ')0 

99V“99, 00 

999999,00 

HOD 

999999.00 

999999.00 

99999". 00 

999979.00 

9999'79.0O 

999999.00 

999999.00 

999999,00 

1500 

999999. '..0 

999999. 'DO 

999997. "0 

999999.00 

999999.01.' 

999979. Ou 

999999,00 

999999.00 

1700 

999'?99,u0 

999959.00 

999999.00 

99'7'799.00 

999499.  O') 

999999.0') 

999999,00 

999999.00 

19uO 

999999,00 

999999.00 

999999.0) 

999997, uO 

979»99.0'; 

999999.00 

999999.00 

999999,00 

2lu) 

999999.00 

999999.00 

999799.00 

999999. 'jO 

999999, 

997999.00 

990999.00 

099999,, DO 

23"0 

999999. OC 

999999. 

“99979. 00 

999997.00 

999999.00 

9 '7999  9.  O') 

999999,00 

599999.00 

Ir.p  999959, f)0  pnt^iei  signiT^  Lht  nunbei-  o'  units  reqguc-J  i'  inTin.t  , 
tnat  IS,  the  Hezard  Density  and  f-tut  are  but.N  zero. 

Horara  Density  Criteiion=  .00162'^  (rag/sq(t  Hazaro  P-hit  CritfriDns  .010 


table  1  Increici.t  =  300  teet  N' iter  oT  Units=  dfc 


Distal 

ce 

To'al 

HzarJ 

-  Total  Nuaher  of 

Final  Bruund 

Itpacts 

(lee! ) 

Total 

DEfiity 

Total 

hazard 

Dens. ly 

Hazard 

10  Degree 

Azisath  Bettor 

froa 

To 

No. 

Fraqs'sqH 

P  hr. 

Na. 

frags/srjfc 

P-hit 

Nin 

ftvij 

Fidi 

1' 

300 

222.24 

.154620 

. 260809 

222.24 

.154620 

.260809 

59,80 

59.  BO 

59.30 

300 

(,OiJ 

9.77 

.O'))  196 

•  OHIII 

5.75 

.'J03020 

.0137/4 

.00 

4.03 

7.20 

60u 

90u 

21.85 

,0';4313 

.0229'j7. 

20.84 

.0')4-'l3 

.')223B.7 

.00 

.  !j7 

4.60 

900 

1 200 

IU4.6.5 

."■;H631 

.1I41T7E 

12,37 

.UC'1244 

.006814 

.  'J'J 

50.65 

174.80 

120U 

1500 

46.00 

•  Ol'ieOn 

.■70-647 

.00 

.OOOOOO 

.')OOuOu 

.00 

4U.25 

174.80 

1 50" 

lEou 

20.70 

,(;';035l 

.001646 

,')0 

.OOOOu') 

.  '■■■0000 

•  Oo 

20.70 

73.60 

IKOO 

2190 

4.60 

.  0'j0|'(.i) 

.(■0026? 

.00 

.OOC'D'DO 

■  O'j'DOOO 

.CO 

4.60 

36. 8^', 

2100 

24i)0 

.00 

.  'yuC'uO'; 

.  OO'.'C'OC* 

.Ou 

.UVUOO') 

.Ov'OCOO 

.01- 

.t'O 

."0 

Hunber  nt  trajpctories  Nith  di'fanLt  ijrrater  tinn  ?ai'0  Eeet"  0 
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table  2  Inrreieot:  3'''0  tee*  hj»5pr  of  Un'.s-  4(. 


i.'i  stance 

- Ha 

ard  Density 

iFrag'.'sqft.  - 

Ha:a''d  E>^ 

jbabiliLy  c<  Hit 

iteet ) 

Ka* 

eol 

501 

Hin 

Hax 

201 

501 

flin 

150 

.329562 

.164927 

.•.■j3625 

.■■>9324? 

.6301 05 

.322794 

.11 '0496 

.U':'093 

450 

.046318 

.‘iOOCliC 

.OOO'.'Oo 

.  'OOOOO'j 

.220"5 

.000000 

.OCbOOO 

.000000 

750 

.031734 

.oO\T64 

. 000000 

.  'O'OOOi'O 

.165921 

.■039341 

.O'jOOOO 

.  C'OOOOO 

1050 

.010993 

. ' 00000 

. OjOOOO 

-OOOOO'j 

.059735 

.00000'.' 

.000000 

.■300000 

I;50 

.  0''0000 

.OCOOuO 

.000000 

.  OOOO'jO 

.OOCOOO 

.000000 

.000000 

.000000 

1650 

. 000000 

.OOOO’jO 

.  O'jOOOO 

. 'OOOOO 

•  OOOO'Do 

.  C'OOOOO 

.O'jOOOO 

.OOOOO'i 

1 05'.' 

.  O'jOOOv 

. 000000 

.  L'OOdOd 

.  Ov.'OO'j 

.  Ou',000 

.  OuO'jOo 

. 000000 

.OOCOOO 

2250 

.000000 

.  vOv'jOO 

.O'jOOEO 

•  OOOOOC- 

.  OOOOO'O 

.^O'OOOn 

.00000';' 

.OOO'.'Oj 

taElE  : 


Iricreient^  30C  feet 


HAIhEO  . - . . fjf  Uliivc,  IQ  l^;5I 


DIbTA'iCE 

■  G>2KS:Ty  CRlTFF.irK  -- 

-  -  F-OiT  C 

RlTE’ilOti  — 

iFEtTi 

hiH 

801  i-il 

HA  I 

nih 

801 

501 

r.f.i 

15'-. 

.24 

.42  .75 

.8? 

.7t 

.47 

.85 

.94 

450 

! .  oO 

999999. ''.0  999999. •■'0 

999999.  0 

1.69 

999999.  >'0 

9^9' 99. 00 

999?';'',,,jn 

750 

2.  '3 

10.39  999999. f>0 

999999.00 

l'j.?2 

9999*59. 0^ 

999999, '.'0 

1050 

6.98 

99999b. ij',  999999. vO 

b9'(9'’9.'7C 

7  j6 

9'i':999.00 

9’9999.';C' 

979999,00 

135'2 

999999.00 

999999. ij'2  2  ■/■99=9. 'jO 

9b9'‘99.'y0 

999*99, 0(' 

999  999. 

999999.  lyO 

1650 

999999. "0 

999999.00  999999. 'j-0 

999b''9.00 

99b9';'9.C0 

999999.00 

999999.00 

99'?9?9,0u 

1950 

999999. .jO 

999^99. i.'O  OTRObb.'a'O 

999'-  ,9. Ob 

999999.00 

999999, ').! 

999999,00 

979999.00 

?7'o 

9<;QC9C.f-,ij 

;  )occ<9/*'. 

959999.. ■(, 

C99F96..;..} 

r.ft 

QyOQQli 

fit  9 

99. Oa  entries  sin  ify  that  tl:e  nirser 

f.<  j.'.its  lequiren  '.s  iniinite, 

t.’iit  IS,  t.nc  ha; 

ard  Density  ani  A 

1.1 1  are  or.th  ; 

'rro. 

H;::a’3 

1  51  I  5i  Iter  ibn  .0' 

.66'  frug.sqft 

naja'd  r--'!'. 

Cri  terisr,' 

,■010 

TABLE  1  i:  ■ 

lent  =  4'/0 

fi-e! 

tijiiber  &( 

L'llts-  46 

Lli*drir.e 

eta! 

Ha.-a'd 

Tntal  h'jiter  of 

Final  2 

rcjp.d  Upa.ls 

'.ftp 

.  Ibtai 

nsi  t  y 

Total 

ha.’ari 

Density 

Ha;  ard 

1'  L’L-y^pp 

Anautn 

bettor 

Tc  Nb. 

aqs/S'jf  t 

r-h.t 

Ho. 

Trags/Suf*. 

F-t.'t 

Hin 

A'.-g 

'.f 

4'j'j  225.1; 

.':i894(;7 

.Ib^etO 

225. 1 1 

..>39467 

.i5'-Sn>; 

5b."0 

3=.30 

S'}.  50 

400 

CO',  2'J.7i,. 

.'.;36‘:5 

.■■;lb4'A 

I'.l'.' 

->.''354:. 

.010151 

.  00 

4.60 

!  3.  !iO 

e'",' 

120'ti  112. n' 

.O'lte:'; 

20.  sH 

.C'.'1'45 

.■;'iV4--3 

.■70 

58. 6;,- 

1/4.30 

12'j'j 

!6'jS  55.20 

.  'JOT  59'. 

.’j- 

.'jOOO'-O 

.  0.  vC’OO 

.■70 

4".  *5 

211.60 

if/i 

in.i; 

.'.•■-■■.■len 

,  vO',ft‘'6 

Jj'j 

.00 

16.  I'l 

/  3.  .*'0 

;■:■■;'.■ 

2 'O';  .'.'0 

.  ■j'jC'','Ov 

.  '.ioot":o 

.'.'J 

.  ■.■00',''.'i/ 

.  X'OOOO 

.  00 

.00 

.00 

HitLe'  c(  ira.ie'.t'. 

.if  Oislantb  q'eater  lh.r, 

'4Cij  ifet^  d 

I!  I'i 
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TABLE  2 

IncrB!ient= 

400  feet 

Nuiber  of  Units= 

46 

Distanr 

ifeet) 

flax 

BOX 

50X 

din 

Max 

BOX 

507, 

Min 

200 

.225273 

.103965 

.05B289 

.0527B9 

.560324 

.181572 

.062154 

.061921 

600 

. 0350B6 

.006923 

.000000 

.000000 

,174532 

.037351 

.000000 

.000000 

1000 

.OI37B4 

. 000000 

. 000000 

.000000 

.074516 

.000000 

.000000 

.000000 

1400 

. OOOOQO 

.000000 

.000000 

,000000 

,000000 

.000000 

.000000 

.000000 

iSOO 

. 000000 

.000000 

.000000 

.000000 

.000000 

. 000000 

.000000 

.000000 

2200 

. uuuouu 

.000000 

. 000000 

.000000 

.000000 

. 000000 

. 000000 

.000000 

TABLE  3  Increa!ent=  400  feet 

HAZARD  -  NUMBER  OF  UNITS  TO  JUST  EXCEED 


DISTANCE  - DENSITY  CRITERION -  - f'-HIT  CRITERION 


IFEET) 

MIN 

BOX 

50X 

MAX 

MIN 

807. 

SOX 

MAX 

200 

.  35 

.75 

1.33 

1.46 

.38 

.63 

1,51 

1.67 

600 

2.20 

11. OB 

999999,00 

999999.00 

2.31 

11.64 

999999.00 

999999.00 

1000 

5.57 

999999.00 

999999.00 

999999.00 

5.87 

999999.00 

999999.00 

999999,00 

1400 

999999.00 

999999*  00 

999999.00 

999999.00 

999999.00 

999999.00 

999999.00 

999999,00 

1300 

999999.00 

999999.00 

999999.00 

999999.00 

999999.00 

999999.00 

999999.00 

999999.00 

2200 

999999.00 

999999.00 

999999.00 

999999.00 

9999'?9.00 

999999.00 

999999.00 

999999.00 

The  999999,00  entries  signify  that  the  nmber  cf  units  required  is  infinite, 
that  is,  the  Hazard  Density  and  P-hit  are  both  zero. 

Hazard  Density  CriteriQn=  .001607  frag/sqft  Hazard  P-hit  CritBrion=  ,010 
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TABLE  H-2.  PROGRAM  TEST  CASE  -  FULL  FACTORIAL  OPTION 


quantity  -  distance  program  (fragmenting  munitions) 


Source  'of  frag  data:  DATA 
Output  file:  LPTl 

Target  description:  STANDING  MAN 

Minimum  soil  constant^  .50  Maximum  soil  conEtant=  4.00 

FULL  FACTORIAL  OPTION 

3— D  fragment  trajectories,  3-D  man,  2— D  wind 

CD  is  a  function  of  fragment  max  to  avg  presented  area  ratio 

Run  contains  fragment  ricochet  routine 

Variable  air  density,  altitude,  and  sound  speed 

Ejection  zone  size=  10  degrees 

Azimuttr  sector  size=  10  degrees 

Number  of  units  or  interaction  areas=  46 

Number  of  fragment  multipliers=  13 

■■  X 

Fragment  hazard  criterion^  5B.0  ft— lbs 
Percent! le=  90 

Minimum  altitude  of  ammo  storage  site=  .000  feet 

Maximum  altitude  of  ammo  storage  site=  5000.000  feet 

Height  of  ammo  stack=  4.50  feet 

Stack  inert  ground  standoff =  .50  feet 

Number  of  fragment5=  5 

Maximum  computation  range:  2400  feet 

Dimensions  of  the  target  (feet):  HM=  5.72  WM=  1.00  DM= 

Hazard  'density  criterion=  .0016667  frags/sqft 

Hazard  probability  of  hit  criterion^  .0100000 

Minimum  wind  speed=  .00  feet/second 

Maximum  wind  speed=  30.00  feet/second 

Wind  directian=  .00  deg  (0=tailwind) 


Fragment  multipliers 

.01000  .02000  .03000  .04000  .05000  .06000  .07000  .08000  .09000 

.10000  .11000  .12000  .13000 


FACTOR  'LEVELS 

SOIL  CCNSTANT:  .1000  .2500  .6000  .8000 

HEIGHT  OF  ORIGIN:  .5000 

ELEVATION  ANGLE:  .0000  .9999 

INITIAL  VELOCITY;  1.2000 

DRAG  COEFFICIENT:  .5000 

ALTITUDE:  .5000 

WIND  SPEED:  .0000  .9000 

NO.  OF  TREATMENTS  =  16 

NO.  OF  TREATMENTS  PRINTED  =  16 


H-I5 


NSWCTR07-59 


TKCATMLNl  (  1  ) 


Soi  1 

Mon-j 

tc.nt'  = 

.  yG'j 

r  1 

c  1  r  ud 

.e  - 

000  4  set 

Wr  nd 

speRd 

= 

.  000 

f RRt /second 

FSft6 

t 

NT 

O'H 

IV 

CD 

DISTN 

rr 

KE 

TGF 

EF 

RANGE 

IRH 

lA 

7D 

AR 

HD 

RB 

1 

.01 

:ow.o 

It. 00 

2084 

.56 

983 

74  5 

'2.3 

3.41 

12,4 

983 

C 

.0 

40 

1.10 

2.5; 

3 

2 

-lO.jO 

1000.0 

u.oo 

3124 

.7« 

1209 

112.0 

27.9 

«•>< 

CD 

76.1 

1209 

0 

.0 

44 

1,25 

2.50 

1 

J 

ao.oo 

5'X.O 

15.00 

203' 

1.26 

245 

10-J.9 

11.3 

I5.1B 

89.3 

265 

0 

.0 

50 

1,70 

2.50 

0 

10.00 

500.'' 

7.00 

10!2 

.80 

1403 

135.9 

20.5 

5.08 

31.7 

1403 

0 

.0 

38 

1 . 30 

2.50 

0 

5 

-40.00 

500.0 

6.00 

3i2i 

1.04 

y 

J 

3098,4 

9799.9 

.00 

40,0 

3 

0 

.0 

3 

1.50 

2.50 

0 

TRflATMFCMT  ( 

2  ) 

Gqi  1 

constant  = 

.  GGO 

A 1  1. 1  t  ‘.td  Q-= 

2S0ij. 

OO'j  feet 

til  nd 

spRt'd 

•.= 

27 .  O'j'T 

F  eet  /stjcof'id 

Ffifte 

E 

t!T 

m 

IV 

CD 

CISTH 

VF 

KE 

TOf 

EF 

RANGE 

IRN 

>A 

tD 

AR 

HO 

RB 

,01 

1000.0 

16.00 

2054 

.54 

1147 

49.3 

5.4 

5.00 

25,0 

1147 

0 

.0 

58 

I.IO 

2.50 

4 

2 

-ll.OO 

1000. 0 

12.00 

3;26 

.74 

1448 

121.5 

32.8 

9.91 

63.9 

1468 

0 

.0 

44 

1.25 

2.50 

■ 

3 

GO.  00 

50.0,0 

10.00 

2oE4 

1.2G 

t:7 

104.  ■> 

12.2 

15.20 

74,4 

65/ 

0 

.0 

50 

1.70 

2.50 

0 

4 

It.',';' 

500.0 

7.00 

1042 

.80 

1535 

158.4 

27.9 

5.13 

27.0 

1535 

0 

.0 

36 

1.30 

2.50 

C 

5 

•4;. CO 

500. C 

fc.M 

3124 

1.04 

3 

3098.7 

9999.9 

.00 

40.0 

3 

c 

.0 

3 

1.50 

2.50 

0 

TREATMENT  ( 

3  ) 

So*  1 

C.  Qll'i 

tant  = 

.  yj'j 

A1 1 1 1  L'de- 

OO'j  -ft'et 

Wi  ntj 

iHpeed 

- 

.  OO'J 

feet/ 

second 

FMS 

t 

a 

ft/H 

IV 

CD 

CIllK 

vr 

tc 

TCf 

EF 

RANGE 

SRN 

2A 

2D 

M 

>« 

Ab 

I 

10.00 

1000.0 

14.00 

20H 

.54 

1142 

104.4 

24.3 

4.80 

40,1 

1162 

0 

.0 

38 

1.10 

2.50 

0 

2 

-.01 

1000.0 

12.00 

3126 

.74 

1134 

79.7 

14.1 

3.41 

11.4 

H34 

0 

.0 

38 

1.25 

2.50 

y 

9?.  99 

500.0 

1C. 00 

2084 

1.28 

0 

100.9 

il.3 

15.4'v 

90,0 

C 

0 

.0 

50 

1.70 

2,50 

0 

4 

20.00 

500.0 

7,0'1 

1042 

.SO 

1625 

124.9 

17.9 

8.06 

54.8 

1425 

0 

.0 

52 

1,30 

2.50 

0 

5 

-10.00 

500.0 

4.00 

3l2u 

1.04 

4 

3090.5 

rv9?.9 

.00 

30.0 

4 

0 

.0 

4 

l.sO 

2.50 

0 

Tf<t  ATnLT-n  (  A  ) 


Soi  1 

const...>nt  = 

.  ii^o 

A»  t 

1 t  udf  = 

2^0' J . 

000  feet 

Wind 

sf  eed 

- 

27 ,  'X"'> 

f  eet  / 

■iecc 

IRAS 

t 

NT 

m 

IV 

CD 

CISTN 

VF 

rt 

TOF 

EF 

mei 

IRN 

lA 

IB 

AO 

HO 

1 

10.00 

lOOt'.O 

14.00 

2084 

.54 

12'72 

124.2 

35.4 

4.83 

32.4 

1292 

0 

.C 

38 

1.10 

2.50 

2 

-.01 

1000.0 

12.00 

3174 

,  74 

1,507 

54.2 

4.5 

5.00 

22.3 

1307 

0 

.0 

55 

1.25 

2.50 

3 

89.99 

500.0 

10.00 

2064 

..23 

3Si 

104.5 

i;.i 

15.40 

75,1 

394 

0 

.0 

50 

1.70 

2.50 

4 

20.00 

500.0 

7.00 

1042 

,E0 

i336 

143.3 

22.8 

8.15 

48.3 

1854 

0 

.0 

57 

1.30 

2.50 

»; 

-30.00 

500.0 

4.00 

3124 

1.04 

4 

3091.  J 

9999.9 

.00 

30.0 

4 

0 

.0 

4 

1.50 

2.50 

TKlAVrU.M  (  5  ) 


Scji  1 

c  an 

it  ai  >  t  -• 

!  .  :/t. 

Alt!  tud«!  = 

ITaOCi.  ' 

jOO  f 

eet 

Wind 

spr*ed 

- 

r 

J'jO 

feet  / 

^eerjneJ 

FNAG 

F 

NT 

A'N 

IV 

CD 

DISIN 

Vf 

»t 

TOf 

EF 

RM££ 

m 

lA 

ID 

AR 

HQ 

RB 

1 

..'.'1 

1000.0 

I6.O15 

2584 

.56 

1009 

i'j.3 

10.5 

3.77 

16.0 

I'.Xt 

0 

.0 

4'3 

1.10 

2.50 

3 

2 

-10. 

lOO'I.O 

;2.0'j 

3174 

.74 

1363 

lOB.l 

75.4 

8.41 

69.7 

1301 

0 

.0 

57 

1.25 

2.50 

1 

3 

S'O.tC 

500,0 

10. .50 

i'OUT 

l,:-8 

245 

lOv.9 

li.3 

15.18 

19.5 

265 

6 

.0 

50 

1. 70 

2, S'! 

0 

4 

T,;.0''i 

505.0 

7.00 

1642 

.80 

1403 

135.4 

20.5 

5.01 

31.7 

1403 

9 

.0 

38 

1.30 

7.50 

0 

5 

-4'j  00 

500.0 

4. CO 

3 '.76 

1.04 

3 

3C''8.4 

4r;'9.9 

.00 

'iO.O 

I 

0 

.0 

3 

1.50 

2.50 

6 

NSWC  TR  87-59 


1  K-EATHtr-n  (  A  ) 


Soi  1 

coTstan t.  - 

1  .  '.7G 

Altitude^ 

2uOO.'Ti.iO  +  eet 

Ni  nd 

sp  C?  G  d 

27.  p- 

)0';) 

T  ent  /  secofid 

fRAG 

E 

HI 

A/8 

10 

f.n 

DISTH 

OF 

r.E 

TOF 

EF 

RANGE 

IRH 

lA 

ID 

AR 

HO 

RB 

1 

.01 

1000.0 

10.00 

2084 

.56 

1167 

36.9 

3.0 

5.60 

41.4 

1167 

0 

.0 

67 

1.10 

2.50 

4 

2 

-10.00 

1000.0 

12.00 

3126 

./4 

1529 

120.2 

32.1 

8.48 

57.8 

1529 

0 

.0 

57 

1.25 

2.50 

1 

3 

80.00 

500.0 

10.00 

2084 

1.28 

657 

104.7 

12.2 

15.20 

74.4 

657 

0 

.0 

50 

1.70 

2.50 

0 

4 

Iv.OO 

500.0 

7.00 

1042 

.80 

1535 

158.6 

27.9 

5.13 

27.0 

1535 

0 

.0 

38 

1.30 

2.50 

0 

b 

-40.00 

500.0 

O.OO 

3126 

1.04 

3 

3098.7 

9999.9 

.00 

40.0 

3 

0 

.0 

7 

1.50 

2.50 

0 

TREATMENT 

( 

7  ) 

Sol  1 

cons 

t  ant  = 

1  .  ’7G 

A1  t 

1  tude=-- 

2u0'j .  <‘pOi‘)  -f  eet 

W)  nd 

ijp  t;i:sd 

= 

.  OO'j 

•f  ei3t  /  second 

FRAG 

E. 

81 

A/n 

10 

CD 

DISTH 

OF 

« 

TiTF 

EF 

RANGE 

IRN 

r.'i 

ID 

AR 

HO 

RB 

1 

10.00 

1000.0 

16.00 

2084 

.56 

1162 

104.6 

24.3 

4.80 

40. 1 

116? 

0 

.0 

36 

1.10 

2.50 

i; 

2 

-.01 

1000.0 

12.00 

3126 

.74 

1161 

73.3 

11.9 

3.97 

14.9 

1161 

C 

.0 

43 

l.?5 

2.50 

3 

3 

8?. 99 

500.0 

10.00 

2084 

1.28 

0 

100.9 

11.3 

15.40 

90.0 

0 

0 

.0 

50 

1.70 

2.50 

0 

4 

20.00 

500.0 

7.00 

1042 

.80 

1625 

126.9 

17.9 

G.06 

56.3 

1625 

C 

.0 

52 

1.30 

2.50 

0 

b 

-30.00 

500.0 

6.00 

3126 

1.04 

4 

30O0.5 

9999.9 

.00 

30.0 

4 

C 

.0 

4 

1.50 

2.50 

0 

T  f  EATMLIIT 

( 

0  ) 

Soi  1 

cons 

taiit  = 

1 . 375, 

A1  1 1 tudQ“ 

25'T'li. 

‘T'.ij  -feet 

W)  nd 

speed 

-  27.000 

•f  eet  / 

i  a  r:  c  j  n  a 

FRAG 

E 

8! 

A/fl 

IV 

CD 

DISTH 

VF 

n 

TOr 

EF 

RANGE 

IRN  lA 

ID 

Ah 

hU 

RP 

1 

10.00 

1000.0 

16.00 

2084 

.56 

1292 

126.2 

35.4 

4.83 

32.4 

1292 

0  .0 

38 

1.10 

2.50 

0 

2 

-.01 

1000.0 

12.00 

3126 

.74 

1332 

42.3 

4.0 

5.66 

36.4 

1332 

0  .0 

66 

1.25 

2.50 

4 

3 

89,99 

500.0 

10.00 

2084 

1.20 

396 

104.5 

12.1 

15.40 

75.1 

396 

0  .0 

50 

1.70 

2,50 

0 

4 

20.00 

500.0 

7.00 

1042 

.80 

:'836 

143.3 

22.8 

8.15 

48.3 

1836 

0  ,0 

52 

1.30 

2.50 

0 

5 

-30,00 

500.0 

6.00 

3126 

1.04 

4 

3091.0 

9999.9 

.00 

30.0 

4 

0  .0 

4 

1.50 

2.50 

0 

TREATMEMT  (  9  ) 


3oi  1 

cans 

tant“ 

2.  6 (TO 

A1 

1 1  t.  udp  - 

IdSc.iO. 

'jij'.i  +  eet 

Wi  ncJ 

speed 

— 

.  0»O‘j 

•f  eet  /  secur 

.d 

FRAG 

E. 

NT 

A/H 

IV 

CD 

DISTH 

VF 

KE 

TOF 

EF 

RANGE 

IRN 

lA 

ID 

AR 

HO 

RB 

1 

.01 

1000.0 

16.00 

2084 

.56 

1011 

24.4 

1.3 

4.40 

20.6 

1011 

0 

.0 

53 

1.10 

2.50 

4 

2 

-10.00 

1000.0 

12,00 

3126 

.74 

1239 

102.9 

23.5 

5.50 

47.0 

1239 

0 

.0 

42 

1.25 

2.50 

1 

3 

80. CO 

500.0 

10.00 

2004 

1.2b 

265 

100.9 

11.3 

15.18 

89.3 

265 

0 

.0 

50 

1.70 

2.50 

0 

4 

10.00 

500.0 

7.00 

1042 

.80 

1403 

135.9 

20.5 

5.08 

31,7 

1403 

0 

.0 

38 

1.30 

2.50 

0 

C 

J 

-40,00 

500.0 

6.00 

3126 

1.04 

1 

3098.4 

9999.9 

.00 

40.0 

3 

0 

.0 

3 

1.50 

2.50 

0 

1  f  d  AT  r-lENT  (  10  ) 

Gull  uanutant-  2.6'1>0  AltituUu--  2^:00 .  OuO  ■(  (?i>t  liijid  '-.peed-  27.00'.i  -f  cc-G  /  secoru) 


FRAG 

E 

NT 

A/n 

IV 

CD 

DI5TN 

VF 

FE 

TOF 

EF 

RANGE 

IRN 

lA 

ID 

AR 

HO 

RB 

1 

.01 

lOOO.O 

16,00 

2084 

.56 

li56 

45.3 

4.6 

4.85 

14.9 

.I'iO 

0 

.0 

46 

1.10 

2.50 

4 

*> 

L 

-10.00 

1000,0 

12.00 

3126 

.74 

1388 

122.6 

33.4 

5.54 

38.1 

1383 

0 

.0 

42 

1.25 

2.50 

1 

3 

80.00 

500.0 

10.00 

2084 

1.2B 

657 

104.7 

12.2 

15.20 

74.4 

657 

0 

.0 

50 

1.70 

2.50 

0 

4 

10.00 

500.0 

7.00 

1042 

.80 

1535 

158.6 

27.9 

5.13 

27.0 

1535 

0 

.0 

38 

1.30 

2.50 

0 

5 

-10.00 

500.0 

6.00 

3126 

l.(j4 

3 

3098. 7 

9999.9 

.00 

40.0 

3 

0 

.0 

3 

1.50 

2.50 

0 

H  17 


NSWCTR  87-59 


TRCATMl'MI  (  11  ) 


?i01  ] 

cons 

tanV  -- 

2  .  d'jij 

A1 

1 1  t  uiJe-= 

25'50 . 

'lO'j  4  eel 

Wi  nd 

sfieed 

.  ij' 

jO 

■f  /  a€?concj 

FfiAB 

F 

MF 

A/n 

IV 

CO 

DISTN 

VF 

HE 

TOF 

£F 

RAN6E 

IRN 

lA 

ID 

AR 

HO 

RB 

1 

10.00 

1000.0 

16.00 

2064 

.56 

1162 

104.6 

24.3 

4. BO 

40.1 

1162 

0 

.0 

38 

1.10 

2.50 

0 

2 

-.01 

1000.0 

12.00 

3126 

.74 

11j6 

21.(1 

1.6 

4.48 

19.6 

1166 

0 

.0 

52 

1.25 

2.50 

4 

3 

GV.OO 

500.0 

10.00 

2084 

1.28 

0 

100.9 

11.3 

15.40 

90.0 

0 

0 

.0 

50 

1.70 

2.50 

0 

4 

20.00 

500.0 

7.00 

1042 

.80 

1625 

126.9 

17.9 

8.06 

56.6 

1625 

0 

.0 

52 

1.30 

2.50 

0 

5 

-30.00 

500.0 

6.00 

3126 

1.04 

4 

3090.5 

9999.9 

.00 

30.0 

4 

0 

.0 

4 

1.50 

2.50 

0 

tklbt^icnt  ■:  1 

2  ) 

Sqi  1 

can^tant= 

2 .  d'lO 

A1 1 1 1  ude- 

2500. 

000  f  o 

et 

Wi  nd 

speed 

= 

27 . 000 

■Feet/seconci 

FRA6 

E 

MT 

A/rl 

IV 

CD 

DISFK 

VF 

« 

TOF 

EF 

RAN8E 

IRN 

lA 

ID 

AR 

HO 

RP 

1 

10  00 

lOOO.O 

16.00 

2084 

.56 

1292 

126.2 

35.4 

4.83 

32.4 

1292 

0 

.0 

38 

1.10 

2.50 

0 

2 

-.01 

1000.0 

12.00 

3126 

.74 

1314 

48.5 

5.2 

4.91 

14.5 

1314 

0 

.0 

45 

1.25 

2.50 

4 

3 

89.99 

500.0 

10.00 

2084 

1.28 

396 

104.5 

12.1 

15.40 

75.1 

396 

0 

.0 

50 

1.70 

2.50 

0 

4 

20.00 

500.0 

7.00 

1042 

.90 

1836 

143.3 

22.8 

8.15 

48.3 

1836 

0 

.0 

52 

1.30 

2.50 

0 

5 

-30.00 

500.0 

6.00 

3126 

1.04 

4 

3091.0 

9999.9 

.00 

30.0 

4 

0 

.0 

4 

1, 50 

2.50 

0 

1  f-:EA1  MtNl  (  13  ) 

Soil  cunstapt^  ".j.^OO  Altitude-  2500.000  +eet  Wind  speed-  .  0<.i0  -feet/second 


fftAr 

1  i>r<v 

r 

L 

UT 

«  1 

A  ;w 

p/  n 

iV 

LU 

u  1 3 1  n 

VF 

HE 

TOF 

Ef 

RANoE 

IRN 

lA 

ID 

Afi 

HD 

AB 

1 

.01 

1000.0 

16.00 

2084 

.56 

1017 

21.4 

1.0 

4.54 

23.9 

1017 

0 

.0 

57 

1,10 

2.50 

4 

2 

-10.00 

1000.0 

12.00 

3126 

.74 

1256 

102.8 

23.5 

5.60 

48.1 

1256 

0 

.0 

42 

1.25 

2.50 

t 

3 

83.00 

500.0 

10.00 

2084 

1.23 

265 

100.9 

11.3 

15.18 

89.3 

26F 

0 

.0 

50 

1,70 

2.50 

0 

4 

10,00 

500,0 

7.00 

1042 

.80 

14f'3 

135.9 

20.5 

5.00 

31.7 

1403 

0 

.0 

38 

1.30 

2.50 

0 

5 

-40,00 

500.0 

6.00 

3126 

1.04 

3 

3098.4 

9999,9 

.00 

40.0 

3 

0 

.0 

3 

1,50 

2.50 

0 

TREATMENT 

( 

14  ) 

So  i  1 

ocjns 

tatiT:  = 

2 .  'i.uj 

A1  ti cude- 

250'.'>. ‘lO'j  T 

ect 

Wi  nd 

speed 

2 7 . OOO 

■f  oet  /  second 

FRA6 

E 

A/n 

IV 

CD 

DiSTH 

VF 

KE 

TOF 

EF 

RANGE 

IRN 

lA 

ID 

AR 

HO 

RB 

1 

.01 

1000.0 

16.00 

2084 

.56 

1165 

42.1 

3.9 

5.03 

16.9 

1165 

0 

.0 

48 

1.10 

2.50 

4 

2 

-10,00 

1000.0 

12.00 

3126 

.74 

1408 

122.3 

33.2 

5.64 

38.9 

1408 

0 

.0 

42 

1.25 

2.50 

1 

7 

80.00 

500.0 

10.00 

2084 

1.28 

657 

104.7 

12.2 

15.20 

74,4 

657 

0 

.0 

50 

1.7C 

2.50 

0 

4 

10,00 

500,0 

7.00 

1042 

.80 

1555 

158.6 

27.9 

5.13 

27.0 

1535 

0 

.0 

38 

1.30 

2,50 

0 

5 

-40.00 

500.0 

6.00 

3126 

1.04 

3 

3098.7 

9999.9 

.00 

40.0 

3 

0 

.0 

3 

1.50 

2.50 

0 

1  RLATCll.Nl 

( 

It)  ; 

Soi  1 

f.O'Uj 

t  an  t  ■: 

Z  -  2 

Al  t  1  tude== 

."d'.'O. '.iQij  feet 

W  1  nrJ 

speed 

= 

■  5 

F  eet  /  sec  c)nd 

FRAG 

E 

to 

A/H 

IV 

CD 

DISIN 

VF 

HE 

TOF 

EF 

RANGE 

IRN 

lA 

ID 

AR 

HO 

RB 

1 

10.00 

1000.0 

16.00 

2084 

.56 

1162 

104.6 

24.3 

4.80 

40.1 

1162 

0 

.0 

38 

1,10 

2.50 

0 

2 

-.01 

1000.0 

12.00 

3126 

.74 

1173 

24.5 

1.3 

4.63 

22.7 

1173 

0 

.0 

55 

1,25 

2.50 

4 

3 

89,99 

500.0 

10.00 

2084 

1.28 

0 

100,9 

11.3 

15.40 

90.0 

0 

0 

.0 

50 

1,70 

2.50 

0 

4 

20. OC 

500.0 

7.00 

1042 

,00 

1625 

126.9 

17.9 

6.06 

56.8 

1625 

0 

.0 

52 

1,30 

2.50 

0 

5 

-30.00 

500.0 

6.00 

3126 

1.04 

4 

3090.5 

9997.9 

.00 

30.0 

4 

0 

.0 

4 

1.50 

2.50 

0 
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n\L-ATMENT  <  1  ('j  ) 


Sol 

1  cancst:Hnt  = 

A  1  t  1  t  LI 

F  £?et 

Wi  nd 

spieed 

•=  27 

.  'jOO 

f  eet  .^SGC  und 

fPAB 

E 

NT 

kin 

IV  CO 

CISTk 

VF  KE 

TOF 

EF 

RANGE 

IRN 

lA  XD 

AR  HO 

RB 

1 

10,00 

1000.0 

16.00 

2084  .56 

1292 

126.2  35.4  4.83 

32.4 

1292 

0 

.0  38 

1.10  2.50 

0 

2 

-.01 

1000, C 

12,00 

3126  .74 

1324 

45.4  4. 

6  5.10 

16.4 

1324 

0 

.0  48 

1.25  2.50 

4 

3 

89,99 

500.0 

10.00 

2084  1.28 

396 

104.5  12.1  15.40 

75.1 

396 

0 

.0  50 

1,70  2.50 

0 

4 

20,00 

500.0 

7.00 

1042  .80 

1836 

143.3  22.8  8.15 

48.3 

1836 

c 

.0  52 

1.30  2.50 

0 

5 

-30,00 

500.0 

6.00 

3126  1.04 

4 

309'. 0  9999.9  .00 

30.0 

4 

0 

.0  4 

1,50  2.50 

0 

TAB', ' 

1  Increeent  =  100  feet  Huibei  of 

Units'  46 

Distance 

Total 

Hazard 

— 

-  Total  Nuiber  of 

Final  Ground  Iipacts  — 

(fee 

t) 

fotal 

Density 

Total 

Haaard 

Density 

Hazard 

10  Degree 

Aziiuth 

Sector 

Froi 

To 

Ho.  { 

Prags/sqf t 

P-hit 

No. 

Fraqs/sqft 

P-6it 

Hm 

Avg 

Nax 

0 

100 

183.60 

1 . 340030 

.999441 

187. 7n 

1.339041 

.999440 

59.80 

60.95 

64.40 

100 

200 

43.70 

.283663 

.801686 

43.70 

.283663 

.601686 

.00 

.00 

.00 

200 

300 

44.85 

.163324 

.605602 

43.70 

.163060 

.605533 

.00 

1.15 

4.60 

300 

400 

44.85 

.109041 

.4o2737 

43.70 

.:0834° 

.462544 

.00 

1.15 

4.60 

400 

500 

43.70 

.075183 

.347950 

43.70 

.075183 

.34795C 

.00 

.00 

.00 

500 

600 

43.70 

.057279 

.278961 

43.70 

.057279 

.278961 

.00 

.00 

.00 

600 

700 

44.85 

.052220 

.257525 

43.70 

.052117 

.257370 

.00 

1.15 

4.60 

m 

800 

43.70 

.040679 

.205050 

42.84 

.040254 

.202762 

.00 

.00 

.00 

800 

900 

43.70 

.028310 

.149021 

33.35 

.021858 

.114816 

.00 

.00 

.00 

9D0 

3C'*'v 

43.70 

02v57u 

t 1 ATOO 
«  t  <  WUA 

HA  At 
AVa  V  a 

AAAOl T 
•  VV  • 

nCTA*  J 

.\A 

a  VV 

n  rr 

X.  J> 

1  1  J  A 
^  1  I'^V 

1 

1000 

1100 

35.36 

.013311 

.071757 

5.75 

.003644 

.019179 

.00 

7.76 

41.40 

1100 

1200 

43.70 

.009975 

.053552 

.29 

.000117 

.000636 

.00 

32.20 

87.40 

1200 

1300 

30.47 

.004494 

.023002 

.00 

.000000 

.000000 

.00 

18.98 

46.00 

1300 

1400 

26.45 

.002951 

.015328 

.00 

.000000 

.000000 

.00 

17.25 

46.00 

1400 

1500 

14,9- 

.000927 

.004431 

.00 

.000000 

.000000 

.00 

14.95 

46.00 

1500 

1600 

12.08 

.000601 

.004033 

.00 

.000000 

.000000 

.00 

12.07 

82.80 

1600 

1700 

9.20 

.000369 

.001329 

.00 

.000000 

.000000 

.00 

9.20 

36.80 

1700 

IBOO 

.00 

.000000 

.000000 

.00 

.000000 

.000000 

.00 

.00 

.00 

1800 

1900 

9.20 

.000364 

.001536 

,00 

.000000 

.000000 

.00 

9.20 

36.80 

1900 

2000 

.00 

.000000 

.000000 

.00 

.000000 

.000000 

.00 

.00 

.00 

2000 

2100 

.00 

.  000000 

.000000 

.00 

.000000 

.000000 

.00 

.00 

.00 

2100 

2200 

.00 

.  000000 

.000000 

.00 

.000000 

.000000 

.00 

.00 

.00 

2200 

2300 

.00 

.  oooooc 

.000000 

.00 

.000000 

.000000 

.00 

.00 

.00 

2300 

2400 

.00 

.000000 

.000000 

.00 

.000000 

.OOCuOO 

.00 

.00 

.00 

Nuiber  o(  trjjectorifs  mth  ilistance  qrtattr  ttian  2400  feet'  0 
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TfiBLE  : 

lncreient=  lOO  Feet 

Nuiber  oF  U:iit5=  46 

Distance 

. .  H3:a.''d 

Density  'Eraqs 'sqit) - 

-  iiatard  ProbaOihtv  oF  Hit  . 

'feet  1 

Hu 

901 

507. 

h>rt 

Ma>  907  507  Hin 

50 

i.:.57<;i6 

; , 

j  j  ■'  5 1 1 

1.334786  1 

.3.37382 

.999510  .999510  .999442  .998337 

150 

.300636 

'00835 

.  266695 

.2bi'10 

.821109  .821  109  ,782552  .■'8216'j 

250 

.I’6ll6 

76116 

.150552 

.  1497.j: 

.6349:;  .634873  .577523  .575474 

350 

.1:('446 

:0446 

.098275 

.  *'96766 

.498069  .'93069  .43034?  ,425433 

450 

.03^44 

. 

■67444 

. 06462t 

.06218: 

.59’B47  .393847  .309237  .299475 

550 

.05982: 

■59590 

.05672" 

.'054281 

.289930  .288982  .".'7012  .266884 

ti50 

.05oi:o 

■55912 

.051345 

.048085 

.;7469e  .273839  .254437  ,24506'.. 

'50 

.055907 

'55856 

.030474 

.0l«B72 

.273727  .273514  . 16C4.'6  ,107060 

650 

.036124 

. 

j361  : 1 

.0:7166 

•  O'OOOuO 

.lC7u5:  .186990  .144520  .OOOOOO 

95C 

.o::7oe 

■:2748 

.006292 

»*.'*.*  0000 

.::?i.69  .i;22’o  .035363  .OOOOOO 

1050 

.02948; 

j2e6;'j 

OOO'OOO 

.F'OOOOO 

-  155394  .  1'.126  .OOOOOO  .O'jOOOO 

115c' 

.001866 

■OnOOO 

.  ■;..!6S'0u 

.IFOOOOC 

.01066:  -OOOOOO  .OOO'jOO  .ooouoo 

1250 

. oooooo 

jOOO'jO 

.OOOOOO 

.OOeOt'C 

..OO.O.'Oj  .'OOOOOO  .C'.'OOOO  .oooooo 

1350 

. OOOtOO 

jO'I'OOO 

.  'O'OOCOO 

•OOOOOO 

OO'OOOO  .COOI'OO  .OOOl'OO  .oooooo 

145v 

.  O'.iOOOl’ 

.  00000',. 

.  '.'Ol‘00^ 

.oo.oj':.:.  .000000  .oooooo  .oococ-o 

1550 

.  ■'’■"vOO'.’ 

. 

■OOOi'C' 

.  OO.OOOO 

.■■COO'jO 

•  OOOOC'a  .O'.C"0C0  .COOOC-j  .OOO'OOO 

la50 

.  0''0.‘C’0 

lO'.iCOO 

.  vjOOOO 

. OOOOOO 

.OO'O'OCO  .O'.'OOOO  .O'JOOC'O  .OOuOOt 

1750 

.OoOOOO 

, 

■O'J  jOO 

.  ''‘OvCrC'O 

.■v"j0'300 

.Oi'OOCj  .'OO'Di'O':'  .oooooo  .'ODOliOO 

!  3*^'' 

.  OOO'jOO 

lOC'O'O 

.'■OOOOO 

.OOOoC'i  .oooooo  .OOCOCO  .O'FOOO'O 

'  Qc*. 

.oooooo 

■0'.00'2 

.  vv  rjvO 

.(■(■OO'OO 

.'O'jooO'j  .'OO'O'Ooo  .■■.'(  0000  .oooooo 

:o5'; 

. OOOgOO 

.O'.'Oo'OO 

.oooooo 

.'OO'/OOu  .'lOOCCo  .  D'OCt'OC’  .oocooo 

2150 

. oooooo 

■OoCOO 

.  C’vOOCO 

.80000C 

.  -'ri'.iftA 

•  *  c  * 

•.fcJV 

.  200-'00 

, 

/■OO’J'2 

.  ('.'■0  OC'O 

.  70..'OC0 

.v'OOOOt  .'OOCOO'.'  .OOOoC,'  .'O.iCOOv 

7  r 

‘000t.'C 

.  O'.'.'uOu 

.'IC'yCC'O 

.OOOv'OO  .OOOoO'O  .CvOOCO  .'OO'i'tCO 

Tf 

; 

l.sc'ese.'.ts  I'.’O 

te&t 

OlSIAhCE 

--  IcKSi'i  Cf !  TEf  I'3K  . . 

f.'.' 

HO) 

no  '■;7.  ■;■;■,  roi 

1^0 

.  '  / 

■ 

■  ’  *-’*  f," 

150 

.  i6 

^  % 

‘v 

.:e  .:e  .:.  .?! 

I't 

.4': 

.<5 

‘3 

,  c 

"i 

•ic  .t6 

4:  ■ 

•  V"- 

.59 

.  rc  : 

34 

1  •; 

c  t 

.  •  .  b  . 

7  c 

1.76  1.7'  '.,44  I.!'. 

t  ^  '< 

! . 't 

^  J 

•  c ..  • 

c  7 

1.45  l.te  ;,t5 

:.:3 

.  :c 

-  C  . 

■ 

;.4: 

clC 

I. ; ' 

j 

I.b'  9^V?’** 

:.74  ;.'-7  8999=9.0: 

'1  . 

3.14 

. 

!r.  ■' 

9955‘;3.cr' 

1  1*.  c  ■ 

:.r.  599V-5.0C- 

•  ■  e 

4 ; .  ■  ‘ 

‘■95*39 

,  ' 

‘^559"t.  2-.  C9‘'995 

4?.:*  9559-*^. 99-'f9'‘^0v 

',  =  -,0',;,  6 

1''  79^^*"* 

r-(. 

i;5*,-99Q  99^999. 00 

•  TC  • 

( 

wSv-:: 

999009  4-..  090909  r„,  9009CC 

;4‘. 

QQ9<f  ;g^ 

5  =  *'*=9 

.  ■ 

5  7^9  V"* .  vC'  ^5  9  *3  95 

?8?999.0i-  9?9998.:0  999989.00  89998, .j'.' 

.  j- . 

C6;953. 

99v:;i.  i; 

999;;=.  -.  ';???95 

809999. 'Op  989999,0'  999989,  Ov  989999. .O'; 

I  i  1 . 

7  T  t  •  •. 

’^'959 

^79999, “0  999999 

.'v 

999999.00  999908,.;.(.  899999,00  999899. 0'.' 

' 

.75. 

599999. 

9c:9?9 

"59:9,-.':-  9?9‘39* 

*0 

899999. .00  999899.01'  999999, 0'i  9999"9.0'J 

;  c-C' 

909^9,^  jf. 

‘•9'9 , 

.  .*■ 

999?97.,i0  999*;9‘; 

00 

999999. to  999999.00  999999,00  989999,00 

j 

991:;; 

,1 

99;;^;  99999c 

jO 

955595.00  995999.00  *^55599. 00  99‘J955.':0 

■  .  t  r*i 

959993..  :■ 

99C^t; 

‘?99*i‘49,Of  999599 

■;■(. 

959*^99. ‘.'0  9959‘)7.0v  959599.  C’O  99555i.0'O 

- 

1'  •  t  . 

599*355. 

9t*399‘ 

.  ■: 

9979^9.00  999999 

■'•O 

999999.01;  998899, .j.;i  999999  rs  999995  ,j,j 

1  i  ^  ■ 

999999, ..0 

99,99 

89y?’9.00  0575SV 

999999.00  999999.00  999999.00  999099.00 

■'  TA 

599955 . 00 

99999t 

.00 

999999. 'r>  999999 

'-■0 

899999.0'..  999999.00  999898. ,oq  9?8999.(,,) 

ihp 

999^'3.  •' 

e.ntrips  s'.gnii  tOat  t'le  r.uilicr 

o4  ii.iits  required  is  inimite, 

that  IS,  ‘he  Haia'il  Dc.ssit)  asd  F 

■hi».  are  both  zero. 

Mfl.’drC 

0ms: 

y  Criteiioii=  .001667  fiag'sqft 

HaiariJ  F'-rit  -'.riteriDn-  .010 

II  2i) 
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iOBl 

E  1  ir.c 

'eio'.t  = 

•.C'  tee! 

hutber  of 

Olltir  4t. 

CiS'j.-ice 

"'Ail 

Ha.'arJ 

.  Tutai  N'jiber  I'l* 

Final 

Ground  Upa  tc 

'tPEt 

Total 

Oer.sitj 

Tola! 

hazard 

Cpnsitr 

Hazard 

1.’  Decree 

Aiiiutii  Sector 

rrc^ 

To 

Ko. 

rr  jqs'baU 

F  bit 

Ho. 

rraqi/'oE* 

F  "  h  i  t 

M'n 

Avg 

Wax 

200 

2:2. jO 

.04 7 ’‘5 

.Bl! ;:4 

JO’. 44 

.851124 

59. 

60.95 

64,40 

200 

400 

?(• 

. !  Tlo'-O 

.s:;-;i4 

87. 4v 

.I’m:; 

.522123 

.O" 

2.30 

9,20 

40'j 

600 

87.40 

.065336 

8\4-.. 

.160346 

.  TlOuOi; 

.  O'.t 

.00 

.00 

660 

BOO 

ee.5" 

.:294iT 

Bf..£4 

.238116 

00 

1.15 

4.60 

ec'.. 

1000 

£7.40 

.i:'4  229 

.126620 

^  ^  36 

.9!  5570 

.0823’A' 

.00 

2.59 

4i.4C 

lOC'O 

120o 

’7.06 

.01|5-,B 

. Ott 24i 

i.04 

."OlBt'O 

.0054£g 

.  00 

39.96 

128.80 

1200 

1400 

zt.r. 

.O'.iTbOO 

.60 

.  OOCC'OO 

.OJii'JjJ 

.  0(1 

36.22 

92.00 

1490 

l6C0 

21. ('Z 

. 000862 

.  ;.'04:'2E. 

.  (•■> 

. uCO J90 

.OC-'.-jOO 

.  O'j 

27.02 

12£.89 

1600 

1800 

9.20 

.0'.'0179 

.'V;064£ 

.00 

.  009000 

.  O'jO'jO^, 

.00 

9.20 

36.80 

1600 

2000 

9.20 

.00'jl77 

.eOu?4Q 

.90 

.  "O'jOOO 

.OoC'oOo 

.00 

9.30 

36.60 

200'J 

2200 

.'.‘O 

.  000 '.’00 

.  ''OuO'.  ■■ 

.00 

.  i.'OOO'jO 

.OOOoOO 

.00 

.00 

.09 

2200 

2400' 

.00 

.OOOOO' 

. OvOOvO 

.  ‘.'OnCvO 

.000000 

f 

vv 

.00 

Nuiber 

Qt  ir j jFctcr 1 es  m  th 

listante  greater  than 

24(0  irel=  0 

table  3  Inc'etert 

=  300  tret 

hutoer 

of  Units'  46 

Distanre 

(f eet ) 

ftar  5o3 

5  ox 

Hox 

901 

•301 

hin 

4  .r*  r 

4  .  V 

p  <  e  '  r  c  4  P  4  r'l  t 

«  .40  .4  1  \''J  1  JVUl  Vv 

C7  T  ,  r 
«  i  ' 

.52.‘.tT.:‘ 

.865709 

.865709 

,8:6775 

,836  45'. 

300 

.M364b  .143643 

.130057 

.1181)23 

.555"91 

.555091 

.491670 

.487950 

500 

,022252  .072134 

.O0027B 

.057642 

.336692 

.’.36!’; 

,291513 

.  28155') 

700 

.056005  .05585? 

.040; 64 

.033435 

.224178 

.273665 

,204079 

.171560 

900 

.0395/1  .029053 

.016:60 

.'/OOOOO 

.155394 

.152815 

.086909 

.000000 

1190 

.015)47  ,0i7'55 

, OOOOOO 

.onvuOO 

.07:'730 

.  ■)'’/606 

•  OOOoOi; 

.OOOOOO 

:  300 

.000000  .OOOC'O 

.  'X’OuOv 

.••OOOOO 

.  OOv’/OO 

.  ■lOOOOO 

.OOOf'OO 

.  00'2000 

15u0 

.  OOO'jOO  .  'TOoOO  J 

.  000006/ 

.'■OOOOO 

. OOOOOO 

.'■OOO'.'O 

.  OO'OOOO 

OOOOOO 

1700 

.  OOOOC".’  .  OOOOOO 

. OuOOOO 

,.)OOC'“0 

.(••/O'.OO 

.OOCOOU 

. OOOOOO 

.  OOOOOO 

IroO 

.000000  .OOOOOO 

,  C'(  0000 

.oooooc 

■OOOOoO 

.  O-.'jUOO 

.  Oi'OOOfl 

.OOCOCi) 

2100 

.OOOoOO  .OOOOoO 

.CoOoCO 

.C'OOOOO 

. OOOOOO 

.OOOOC/ 

,(.00000 

.  COOOO'J 

23i'C 

.OOOOOo  .006'0''''j 

,000900 

.OOO'3-.'O 

.  •'■.'6jOOO 

•90000) 

. OOOOOO 

.  ijOO'jCO 

HA'APP 

table  3 

Intrpien 

*=  200  Feet 

bib-  Hn^t. 

ifEET) 

PIN 

901 

5'jl 

rA7 

niN 

opi 

5ul 

flAX 

iOO 

.  i  j 

.15 

.15 

.  16 

.16 

.16 

.17 

.17 

3u0 

.54 

.54 

.65 

.  6b 

.5/ 

.57 

.68 

.69 

500 

I.-.' 7 

l.-'7 

1.23 

1.34 

i.i: 

i.i: 

1,35 

1.41 

79'0 

1.36 

1.38 

..“2 

2.30 

1.45 

1.46 

2.02 

2.42 

Q" 

2.60 

2.65 

4.75 

999'!99.C'2 

2.74 

2.79 

5,00 

999959,00 

11(0 

5.11 

5.56 

909999,00 

999599.00 

5.33 

5.89 

999999,00 

999999.00 

iO'jO 

9'?9999.0(' 

999999.00 

999999,00 

959599. CO 

999997.00 

999999.00 

995999.  ■;■(■ 

9???99.00 

1500 

966999.00 

999999. 'jO 

999999.00 

99999''. OG 

999999.  Ot- 

999999. )0 

99999'/.  00 

999959.00 

1 700 

999999.00 

9999V6..J0 

999999, '/■) 

999999.00 

999V9'/.0n 

999999.00 

999999.00 

9999??. 00 

MOO 

999999. '/O 

999999.00 

999999. yO 

999799.1)0 

999999.00 

999999.06 

999999,00 

999999.00 

2100 

999999.00 

999999.00 

99599'/. '00 

999999.1)0 

999999.  ■)i. 

999999. 0'j 

999999.00 

999999,00 

23'JO 

9999'??. OO 

999999.00 

999999. uC 

999999.60 

999999  9'^ 

999999.00 

999599.00 

999999.0') 

Ihe  99999'?. 00  pritries  signify  thai  !lit*  nuaber  of  unit!!  requneo  is  infinite, 
that  IS,  thr  HiiariJ  Density  And  P-hit  are  both  ;e^u. 

Hazard  Deiisity  Criterion'  .00)66?  fraq/sqfl  Hazard  H  hit  ['■itcr;on=  .010 


II  21 


NSWC  TR  87-59 


IfiStE 

1 

Increient  =  300 

feet 

fiuiber  "f 

Units=  46 

Distance 

Total 

Hazard 

. -  Total  Nuiber  qf 

Final  Ground  Itpacls  -- 

(feeii 

Total 

Density 

Total 

Hazard 

Density 

Hazard 

10  Degree 

fiziiuth 

Sector 

froi 

To 

No. 

F'ags/sqft 

P-h'.t 

No. 

Frags/sqft 

P-hit 

Hin 

ftvg 

Raz 

0 

300 

277.15 

.334182 

.  714723 

275.14 

.333926 

.714685 

59.80 

62. to 

69.00 

300 

600 

132.25 

.076667 

.349603 

131.10 

.076617 

.349553 

.00 

1.15 

4,60 

600 

900 

132.25 

.039340 

.199043 

119.89 

.036731 

.135314 

.00 

1.15 

4.60 

900 

1200 

122.76 

.014285 

.076759 

26.05 

.004256 

.022669 

.00 

*2.55 

170.20 

1200 

1500 

71.88 

.002702 

.013795 

.00 

.000000 

.000000 

.00 

51.17 

138.00 

1500 

1800 

21.28 

.000374 

.001706 

.00 

.000000 

.000000 

.00 

21.27 

119.60 

1800 

2100 

9.20 

.000115 

.000386 

.00 

.000000 

.000000 

.00 

9.20 

36.80 

2100 

2400 

.00 

.OoOOOO 

.000000 

.00 

.000000 

.000000 

.00 

.00 

.00 

liukher  of  tr33ectorie5  distance  greater  than  ?AOO  teet=  0 


TML'^  2  lncreient=  30''  feet  Nuiber  of  Units-  46 


Distdnce  -• 

. Ha: 

arj  Density 

(Frags.'sgitl  - 

Hazard  Probability  of  Hit 

(feetl 

Hax 

90J 

5oI 

hin 

Max 

901 

502 

Hin 

150 

.349001 

.349001 

.320848 

,317226 

.737495 

.737495 

.692746 

.691465 

450 

.084747 

.084652 

.070129 

.067933 

.378531 

.378144 

.327507 

.318853 

7  Si) 

fiiRiqs 

riiPitT 

A9n0fi< 

lRiS?Q 

1050 

.017o59 

.016467 

.001895 

.000000 

.094013 

.087574 

.010665 

.000000 

1350 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

1650 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.oococo 

1950 

,000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

2250 

.OOOOOO 

.ocooco 

.000000 

.000000 

.000000 

.000000 

.000000 

.oococo 

TABLE  3 

Increientr  300  feet 

HAZARD 

hUNBER  or  UNITS 

TO  JUS)  E2CEE0  • 

DlSTnliCE 

ULn  Jill 

IFEF.II 

IflN 

902 

502 

HAI 

hm 

902 

502 

HAT 

150 

,23 

.23 

.25 

,25 

.?5 

.25 

.27 

.27 

450 

.91 

.92 

1.10 

i.l4 

.96 

.96 

1.16 

1.20 

750 

1.59 

1.59 

2.18 

3.70 

1.68 

1.66 

2.30 

3.87 

1050 

4.35 

4.67 

40.41 

999999.00 

4.53 

4. VI 

42.60 

9V9999,00 

1350 

999999.00 

999999.00 

999999.00 

999999.00 

999999.00 

999979,00 

999999.00 

9999?','.  00 

1650 

991999.00 

999999.00 

999999.no 

999999,00 

999999.00 

999999. GO 

999999.00 

999997,00 

1950 

999999.00 

999999.00 

999999.00 

999999.00 

999999.00 

999999.00 

999999  00 

999999  00 

2250 

999999.00 

999999.00 

999999.00 

999999. CO 

999999,00 

999999.00 

999999,00 

999997,00 

The 

999999.00  entries  signify  that  the  nunber  of  units  required  is  infinite, 

that  IS,  the  Hazard  Density  and  P-hit  aie  both  zero. 

Hazard  Density  CriteriQn=  .001667  frag/sqf;  Hazard  P-hit  Criterion^  .010 
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TAiiLE  1  '"'i.reierit  =  4i.iO  (eet  n.iitpr  oE  Ur.  4!i 


C  stance 

Total 

-  Tntal  Hueber  of 

Final 

Ground  Iipacts  ' 

ff;i-t! 

Total 

Dt.isily  Total  tl 

la.’arC 

lienstty 

Hazard 

10  Degree 

Aziiui 

.h  Sector 

fro*  Ts 

Ho. 

Er  age  '.0,1*.  h-hit 

f\C. 

Frags/sqft 

P-hit 

Min 

Avg 

ffa>: 

0  400 

322.00 

.  235!.[fa  .4.04479 

318.84 

.235455 

.604373 

59.00 

63.25 

73.60 

400  BO-; 

173.95 

.0';407'y  .262994 

1/3.94 

.053917 

.'62237 

.00 

1.15 

4.60 

GOO  1200 

166. 

.017265  .092:15 

59.40 

.007'.97 

.042266 

.00 

42.55 

170.20 

1/00  IfcOO 

B3.95 

.002176  .011997 

.00 

.000000 

.000000 

.00 

63.25 

220.80 

160'.‘  2000 

18.40 

.00sl78  .000699 

.00 

.000000 

.000000 

.00 

18.40 

73.60 

2000  2400 

.00 

.CCCOCO  .OOOO'j'J 

.00 

.000000 

.000000 

.00 

.00 

.00 

Nueber 

Df  trajectories  tilth  distance  greater 

than  I 

2400  teet=  0 

TABLE  2  Increient 

=  400  feet 

HutbM 

of  Units=  46 

(feet) 

Max  901 

501 

Hio 

hax 

901 

501 

Hin 

200 

.249908  .249003 

.223472 

.220775 

.63/74(, 

.632746 

.577946 

.575076 

600 

.062775  .062649 

.048545 

.043/05 

.3U0225 

.299709 

.240510 

.217389 

1000 

.021583  .020641 

.007:72 

.OOOOOO 

.113789 

. 108700 

.039109 

. OOOOOO 

1400 

.000000  .OOOOOO 

,  OOOOC'j 

.000000 

.000000 

.060000 

,000000 

.000000 

1800 

.OOOOO'j  .000000 

. OOOOOO 

,000000 

.000000 

.OvOOOO 

.000000 

.OOOOOO 

2200 

. OvOOOO  . OOOOOO 

.  OOOOO'I 

.UO'iOOU 

.uwouu 

. uvOuyO 

.OoOOOu 

. yOOOOO 

hAZARB 

TABLE  3 

Increient-  4'''0  feet 

lU  LULCCU  ’ 

CfillERlO'i  •• 

iFEETI 

HIH 

901 

Soi 

ItA. 

itIN 

901 

501 

KAI 

200 

.32 

,32 

.35 

,36 

.54 

.34 

.30 

.39 

600 

l.?3 

1,23 

1  •  •V 

1.77 

1.30 

1.30 

1.67 

1.86 

1000 

!.56 

3.72 

10.55 

'’99979.00 

3.75 

5.92 

11.1'} 

999999.00 

1400 

999999.00 

999979,00 

9'>9999,C0 

999999.00 

999999.00 

999999.00 

999999,00 

999999,00 

1800 

999999.00 

999999.00 

9999??. 00 

‘.99799.00 

999999.00 

999999.00 

999999,00 

999999.00 

2200 

999999.00 

999999.00 

999999.00 

999999.00 

999999.00 

999979.00 

999999,00 

999999,00 

TE.e  V999')9.00  entriEt  signify  tnif  tlit  iiuiber  of  uiits  required  is  infinite, 
tliit  15,  the  KjZiiid  Density  nnd  P-hit  are  bo‘h  zero, 
tfii'ard  Density  tnte'ion--  .OOlbh?  frag/sqii  Karard  f-tiit  CritBrion=  .O'.O 
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TABLE  H-3.  TEST  CASE  FRAGMENTATION  DATA 


.01  .02  .03  .04  .05  .06  .07  .08  .09  .10  .11  .12  .13 

90  1000  16  2000  1.1 

100  1000  12  3000  1.25 

10  300  10  2000  1.7 

80  500  7  1000  1.3 

130  500  6  3000  1.5 

.10  ,25  .60  .80  a 

,  5  a 

O  .9999  a 
1.2a 
.  5  a 
.  5  a 
O  .90  a 


m. 

Wi 
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APF’KNPIX  I 

wp:apon  fragmkntation  data 
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INTKODUCTION 


TuMch  (-1  and  1  2  tMn'.uIi".  ihc  di  'a  for  !  .'5?nim  projfct  i ii..-;  (  \1 1 C7)  and  Mk82  Lov,-  Draj; 

f?on'.b;;  'I'hey  ari:  iiilcnded  for  use  'v.'  h  llie  KMAGFiAZ  pro^ran-  a-' dost  i  ihed  in  lasting  H  i  of  Appondix  ’V 

Tliodata  for  each  weapo'i  arc  divided  into  llii  et  parts 


I'art  1 


I'art  2 


'I'h?  i'lrst  1  3  values  in  Pie  Lahles  are  the  fi  agn.e;  f  multi  pliers  as  described  in  Appendix  D 
I'iacli  multiplier  ropi'csents  the  efleetivc  tiuiul  er  offragnienls  fur  one  cltgr  je  oi  a/,iniuth 
and  one  a;ii  i.  or  i  nt  era '.'lion  area  1  he  nrst  multiplier  is  for  polar  zone-  0  to  1 0  nog,  the 
second  lor  polar  zone  lU  lo  den  and  so  on  to  the  I  3th  multiplier  u  hich  is  Pi.'  tmiar  zone 
1 20  lo  1  30  deg 


'1  ne  next  215  I'm  s  for  l.‘).5min  projectiles,  and  the  next  2f0  liner  toi'  Mk82  bombs  contain 
the  five  characlenslics  I'or  each  fragment  associated  with  tiic  tcspeclive  sveapon.  The  five 
values  for  each  iragmen!  ai  e  described  as  follows: 


Veiue  1  ■  The  upper  angle  lor  the  1 0  deg  polar /.o.ne  containing  uhe  f.  agmeti'i . 

I'''.ir  (•xample  tui  entry  of  40  would  spi.’cify  p'.'ar  zone  .30  t-i  40  deg 
iUiinemhcr  that  the  elc'^alion  zones  are  d(;rived  from  the  polar  zones 
as  follows 

i-Ti  =  90 -HA 
who  I  e 

MI.  Th(;  lower  limit  of  the  1 0  deg  elcvatii.m  zone.  ML  may  be  a:i 
negative  as  -40. 

HA  L'pper  limit  oflhe  10  deg  polai  zone 


Value  2 


3V;.  ight  of  the  fragment  iii  grains. 


V'aluc  3  'I'he  tiverage  pi  e.^ented  at  ea  to  mass  i  atio  t  in'-Vlh)  wluch  is  used  in  drug 
calculations 


Valued 
Value  .5 


Aver.ige  initial  Iragmeiit  velocity  tit's) 

'I'he  ratioorma.ximum  presenl'jd  .uea  '.oaverage  presented  area  u.  ed 
lo  calculate  the  drag  coelllcietil  at  a  Mach  I'  umher  of  appr.'xi mately 
0  1. 


Hart  .3  'I'he  last  seven  lirms  i  n  I  he  tallies  are  the  facto''  lev.ds  i  or  the  seveti  random  vai  i  a  hies  u.sed 

in  the  MULL  MAMTOHI A M  ojilion  only  M.xcepi  for  Height  ol  Origiii,  t  he  pair  of  levels  for 
all  other  random  vat  tables  span  80  jteiceiU  of  the  range  of  uncerLainty  Mor  exam|)le,  if 
I  he  total  range  oi  i  meet  taint  y  were  1  0  lo  20  then  the  lac  tor  'eve  Is  would  i'e  !  1  aud  i  9 
This  arC'Ount'  for  11  vi;  pairs  of  levels  marked  0  1  ami  0.9  Mor  velocity,  winch  is  di  .1 1  ihuled 
i  lormally,  the  (.m tries  1  28  and  I  28  are  standa.'d  dcvi.it  i'ms  whicli  a);a  in  '-pan  80  jieri  enl 
ol  the  uncert  aint  y  I’he  vat  iahles  as:-orial  ed  with  each  I  nie  .u  e  as  to '  lows 


I  .3 
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Random  \'ar i..hlo 

Jvjil  Con-^tan'. 

Hoifrht  o/'Ori^^in 
Iiiii  ia  i  l'd(  \  alion  An  ''c- 
Initial  V (■  I <>(.■;' y 
.0'  CijeCnci-  nt 
Site  Altitude 
Wil'd  Si‘(  ed 

'1  he  ’  a  ’  at  1  tie  end  o(  each  n.'e  \m!1  ai  oduee  Ri .  Ai;  e!  ‘  i'.'  in  1 1  ''‘'.'4.  as  she-.-.  n  in  tie. 

lAACillAi'  ;jr)iMain  listii  1  '  Ai;i>r  r.(i;'c  ii  Aftai  ei.v'oun'erinjt  •  ne  erroi  the  progruiti  uili 
sl  ip  to  the  next  factoi  le'-  e!  iine  lo  ■  e-;  ci  ie  'Aotur  levr.  Is  n.r  tie-  re  xt  ra’uloni  '•uiriahle 

'I  is  .'i-e,  hine  ah  sol  ete  ;«')■  a'  lie-  '■•.ctof  ed'  ';h‘''.vr!  .uni  j.^er  >  may  wu  nt  to  ch.tnee 
thei.i  to  'uit  their  uaii'evla.  ;  e-eds 


I  ,iiie 

1 

n 

3 

4 

5 

»; 
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I'AIil,!-;  l-l  FUAGMKN'I'A'I’ION  i)ATA  r’UR  155MM  PROJKCTILF.S  (M107) 


C0092S  .0016  .00; 

i '/ 1  L‘‘  .  0O666  .  ( 1O6 


.00^17  .006  .00666  .0071  .02126  .02346 


90  A 

7. 53 

2  750 

1 . 27 

1015 

0,41 

2750 

1 . 4 

12/6 

7. 78 

2750 

1.41 

1393 

a.  39 

2750 

1 . 49 

1034 

7.  74 

2750 

1 . 46 

3279 

6.21 

2750 

1 . 46 

56';i 

9.47 

2750 

1 . 2 

10.  73 
9 


1 .51 

1 


10.  32 

2750 

1 

.  4 

9  275 

0  1.2 

9 

Q.  40 

2750 

1 

9.  45 

2750 

1 

•  ~j 

9.13 

2750 

1 

c.- 

.  0 

6.  33 

2  75(  1 

1 

.  4 

6.  68 

2750 

1 

.  46 

1  1 . 3S 

2260 

1 

.  29 

12.  44 

2260 

1 

.  58 

9.7  2 

2611  1 

.  29 

10.  37 

2260 

1 

9 . 4  Cl 

2260 

1 

''I'T 

7.  98 

2260 

1 

.  4 

a.  58 

2260 

1  . 

22 

9.54 

2260 

1  . 

1  3 

9.16 

22(:.0 

1 

22 

a.  a 3 

2260 

1  . 

16 

1  3 .  C16 

2540 

1 

.  SO 

6.  74 

2540 

1 

.  37 

12.46 

2540 

1 . 71 

9,9  2 

2580 

1  . 

32 

10.  1. 

2500 

1  , 

20 

a,  61 

25BO 

1 

.  4 

a.  95 

2500 

1 

.  5 

10.  Cl 6 

2500 

1 

.  20 

13.  23 

2500 

1 

.  4  2 

10.61 

2580 

1 

.  44 

10. 3a 

6  2  Cl  Cl 

1 

*r 

1 0 . 2 

5030 

1  , 

10. 33 

5038 

1 

.  4 1 

10.  56 

58  3a 

1 

.  42 

1  C<.  06 

5  a:,  a 

1 

.  57 

7.  07 

58313 

1 

■ 

9.21 

5/6  3U 

1  . 

2 

1  1 . 6 

5395 

1  . 

1 7 

I'.i.  66 

5395 

1 

.  64 

10.29 

5395 

1 . 6: 

a.  69 

5395 

1 

.  66 

37.  55 

5395 

1 

.61 

1  :i .  7  7 

53  -5 

1 

.  49 

'.9.  35 

5395 

1 

.  42 

10.  27 

5395 

1 

.  a 

9.4  V 

539',:j 

1 

.  51 
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B'.'i 

2:ioT. 

V .  i.)3 

5395 

4 

i 

65 

80 

0957 

8 . 2‘4 

50SC 

1 

61 

Vi;: 

5-jJ- 

3  1.32 

5040 

i 

90 

7  34 

1  1 . 03 

504u 

1 

, 

7.5 

V';- 

Qfii'i 

9.09  5140  ] 

. 

crtT 

90 

9  ■.'2 

10.19 

504  0 

1 

56 

91.;) 

1  3';’  1 

9.71 

504 12 

1 

59 

90 

i  995 

9 .  t'V 

50'40 

1 

66 

90 

542 

17.  45 

5040 

1 

49 

90 

92? 

7.47  50>^0  1 

. 

!l 

90 

547 

1  1 . 35 

5'.40 

1 

31 

9'0 

6)7 

12.52 

5040 

A 

62 

90 

767 

11.07 

504  0 

1 

4  4 

90 

1040 

9.  69 

5040 

1 

5) 

■/O 

6922 

5.  7? 

5‘')  ^0 

1 

59 

90 

6-0' 4 

1 0 . 5 1 

504  9 

1 

40 

C/O 

.24?0 

7  48 

5040 

1 

49 

90 

0  ’42 

6 . 82 

1 

66 

1 1;)0 

Go? 

9.  05 

46-;>0 

1 

48 

100 

921 

7  .  6j  4 

46<  >t.' 

1 

3  i 

1  Oi. 

IB-'.tO 

6.  72 

4.600 

J. 

.  39 

1 00 

2o07 

6 . 45 

460*' 

1 

.  jdi 

1  00 

276  4 

1 0 .  1  3 

460i> 

: .  7 1 

1  00 

4546 

7.  1-, 

4600 

1 

. .  j  i 

1  00 

0160 

4. 34 

460'.’ 

* 

.  44 

100 

592 

12.  49 

4  600 

1 

.  45 

1  i:>o 

1  052 

32 . 2 

4600 

1 

.  73 

1  Oi;: 

144  1 

f  9  5 

4600 

1 

.  .55 

.too 

9224 

5.  40 

4600 

1 

.  6  1 

I'.iO 

54  7 

1  o.  95 

4600 

; 

.  4  7 

1  00 

575 

17.  B2 

4600 

1 

.  41 

1  OCi 

629 

I  1 . 09 

4600 

1 

• 

3. 0  0 

70(j 

9 . 45 

4cOO 

1 

. 

"7 
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1  C'O 

U)7G 

7 . 38 

‘UiOO 

1 

.  46 

100 

2.207 

8  08 

4600 

3 

.  61 

1  C'J 

22  Q  7 

1  r.  12 

46  jO 

1.82 

1  00 

234  B 

7. 55 

4  7- .10 

3 

e.’  *z 

1  oo 

2’562 

7.85 

4600 

1 

-  '’j9 

1  1-0 

2’:67(;- 

9.  417 

47  OU 

1 

.  <*.> 

1  00 

2687 

B.  60 

4690 

1 

,  tj 

100 

34  TG.- 

fcT.  5  3 

47)^10 

3 

.  h-f 

1  00 

356  8 

6.  66 

4ij00 

1 

.  46 

li'O 

4650 

6.  8-' 

479  jo 

1 

.  50 

1  00 

6505 

5.  05 

4  -'.lOi.j 

1 

.  4  <;■ 

100 

7450 

;r. .  2 1 

46  l-O 

1 

.51 

1  00 

10u79  5.5V 

4  6.  Oil 

.  j  3 

1 00 

;  ■;  i.j2' 

0  4.12,' 

4  600 

i  .  47 

1  10 

507 

i  2.  29 

4600 

1 

.  4  7 

1  lo 

o'.'tj 

13. 42 

47;9U 

1 

■  3 «-! 

1  10 

7?  2 

1  ; ,  25 

i.OO 

1 

.  67' 

1  1  0 

1  TOG 

10.  84 

4  7)00 

1  >  wL 

NSWC  TR  87-59 


no 

1356 

9.  62 

4600 

1 . 58 

1  10 

1939 

9. 6o 

4600 

1 . 66 

1  10 

2545 

28.08  4600  1.64 

1  10 

2376C  4.2 

4  4600  1.62 

10 
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10.77 

2750 

1 . 47 

10 

480 
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1 . 6 

1  0 
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2750 

1 . 32 

10 
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1 . 27 

10 
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1.14 

10 
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1 . 5 

10 
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11.8 
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1 . 53 

10 
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1 . 3 

10 
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1 . 54 
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1 . 22 

20 
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1 . 48 

20 
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TABLK  I  2.  I'  KAGMKN  I'ATION  DATA  FOR  MK82  ROW  DRAG  MOMRS 


.1  .1  .1  .1  .1  .1  .11767  .11767  .11767  .11767  .11767  .1  .1 
10  1118.8  10.89  9070  1.62 
10  661.ti  11.81  9070  1.6 

20  621  12.15  10Q69  1.61 


20 

681.9  11.54 

10869 

1 . 42 

20 

1214.7  12.1 

10869 

1 . 68 

20 

1496.2  11.13 

10869 

1.7 

20 

526.9  11.45 

10869 

1.59 

20 

683.2  12.6 

10869  1 

.  42 

20 

832.7  10.3 

10869  1 

.  43 
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10869  1 

.  57 
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509.5  11.64 
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30 
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.  56 

30 
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1 . 46 

30 
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10870 

1 . 47 

80 

873.8  10.31 
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80 
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80 
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1 . 32 
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1054.9  12.61 

10870 

1 . 66 

80 
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10870 

1 . 66 

80 
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1 . 63 

80 
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.  58 

80 
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10870 

1 . 32 
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1 . 65 
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1 . 68 

80 

1230  11.38 
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.  63 
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1 . 66 
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90 
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90 

534.6  12.62 

9  324  1 

.  54 
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90 

672.  1 

11.97 

9324 

90 

1064.6 

9.47 

9324 

90 

517.  4 

11.58 

9324  1 

90 

593 .  a 

11.19 

9324 

90 

1297.4 

9.31 

9324 

90 

516.9 

12.27 

9324 

90 

57B.  5 

10.07 

9324 

90 

67u .  6) 

n  .  49 

9324 

90 

1046. 7 

12.  37 

9324 

90 

750.  9 

10.38 

9324 

90 

063.  3 

11.38 

9324 

90 

879.4 

10.  14 

9324 

90 

944. 2 

11.64 

9324 

90 

1077.6 

12.21 

9324 

90 

657.  a 

10.27 

9324 

90 

877  10 

.14  93 

24  1 . 

90 

1297.3 

12.57 

9324 

100 

515.8 

12.95 

7576 

100 

789.9 

11.29 

7576 

100 

513.2 

12.  19 

7576 

100 

624.7 

12.3 

7576 

100 

890.8 

12.08 

7576 

100 

528.8 

13.2 

7576 

100 

767.4 

10.6 

7576 

100 

902.9 

11.04 

7576 

100 

904.5 

9.72 

7576 

100 
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1 

Q^n  ,  j 

-7«=: 
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1181.3 

9.  54 

7576 
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1204. 1 

8.72 
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1632.9 

11.45 

7576 
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3503.7 

4.85 

7576 
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770.  7 

12.82 

7380 

110 

1019.8 

13.26 

7300 

no 

634.  1 

10.27 

7380 

110 

589.3 

9.91 

7380 

no 

546.2 

1 1 . 93 

7380 

no 

589. 5 

12.8 

7300 

no 

1149.4 

13.22 

7300 

no 

705  11.18  7380  1 

no 

1146.3 

10.63 

7SQO 

1  1 0 

1852. 1 

10.28 

7380 

no 

2363.5 

10.37 

7380 

no 

613.5 

12.69 

73B0 

no 

656.5 

11 . 07 

7300 

no 

096  10.95  7 

380  1 

no 

2265. 1 

8. 90 

7380 

no 

520.  1 

9.97 

7300 

no 

807.7 

1 0 .  05 

7380 

no 

942.9 

10.78 

7380 

no 

1023. 1 

11.63 

7300 

?  10 

1497.7 

8.97 

7380 

no 

1682. 1 

8.02 

7380 

120 

914  11.64  7679  1 

1  20 

635.7 

12.56 

7678 

120 

911.7 

11.05 

7678 

120 

642.2 

11.51 

7678 

120 

799.7 

13.23 

7678 

120 

609.2 

10.  9 

7678 

120 

1197.5 

12.22 

7678 
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120 

688.9  11.7 

7-b78 

1.73 

120 

7(;i3.6  10.02 

7678 

1.51 

120 

597  11.36  7678  1 

.65 

1 20 

891.9  9.95 

767  8 

1 . 66 

120 

1178.6  13.40  7678 

: .  7 

.20 

540.2  12.6 

7678 

1 . 53 

120 

7V3  11.47  7678  1 

.61 

120 

649.6  12.24 

7678 

1.54 

120 

1021.6  12.9; 

5  7678 

1 . 66 

120 

2644.6  9.45 

7678 

1 . 67 

120 

625.6  12.07 

7678 

1 . 55 

120 

386.8  10.63 

7678 

1 , 55 

130 

1303,2  11.66  7105 

1.64 

130 

635.2  11  96 

7105 

1. 72 

130 

684.2  10.79 

7105 

1 . 66 

130 

1387  11.41 

7105 

1 . 67 

130 

3718.8  9.84 

7105 

1.74 

130 

7;  2.  3  14.02 

:•  105 

4  -7'T 

130 

ttl3.4  ■'3. 66 

7 1 05 

1.78 

130 

648.6  12.37 

7105 

1.62 

130 

726.5  10.71 

7105 

1.42 

130 

704.4  11.82 

7105 

1.73 

130 

930.9  10.59 

7105 

1 . 44 

130 

2779.7  10.98  7l05 

1.7 

130 

511.4  14.06 

7105 

1 . 68 

130 

778.6  12.42 

7105 

1.67 

4  Trx 

A 

1 1 05 .2  13.1 

1  71 05 

1 . 7 

130 

1665.3  8.49 

7105 

1.53 

130 

597.2  13.37 

7105 

1.73 

1  30 

1168.7  15.0 

3  7105 

1.73 

20 

346.6  11.9 

10869 

1.52 

20 

374.2  11.15 

10869 

1.25 

20 

435.2  11.39 

10869 

1,36 

20 

345  13.76  10869  1 

.56 

20 

357.4  15.63 

10B69 

1 . 42 

20 

390.4  13.13 

10869 

1 . 58 

20 

335.3  12.88 

10869 

1.68 

30 

321.7  14.95 

10869 

1,62 

30 

446.9  14  10869  1. 

61 

30 

327.6  14.23 

10869 

1.37 

30 

406.8  12  72 

1 U869 

1. 28 

40 

430.1  11.8 

9709  1 

.  56 

40 

394.6  12.74 

9/09 

1 . 43 

40 

407  15.32  970°  1. 

53 

40 

434.4  12.95 

970? 

1 . 56 

50 

348.3  15.78 

hhOO 

1.48 

5'.) 

304  14.6  6600  1.45 

50 

358. 1  15.30 

6600 

1.52 

50 

350.8  15.86 

6600 

1 . 46 

50 

372.6  14.22 

6600 

1 . 47 

50 

302.2  15.31 

6600 

1 . 49 

50 

321.9  14.44 

6600 

1,6 

50 

445.6  12.52 

6600 

1.5 

50 

424.9  16.66 

6600 

1 .33 

60 

308 .5  17.2 

8B6V  1 

.41 

60 

316.5  15. 75 

8869 

1 . 46 

60 

3S5.6  14.81 

8869 

1 . 54 

60 

357.1  12.29 

8869 

1 . 33 

60 

407.7  12.98 

8869 

1.3 

60 

446  13.69  8869  1. 

59 
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70 

450.  6 

11.25 

10870 

1. 58 

70 

469.  3 

15.32 

10870 

1 . 54 

70 

394  12 

.56  loavo  1 

.  49 

70 

462. 6 

12.3 

10870 

1.42 

70 

378.  0 

16.41 

10870 

1 . 35 

70 

388 .  3 

12.31 

10870 

1. 45 

70 

408.  7 

10.19 

10870 

1.21 

70 

387.  1 

14.14 

10870 

1.64 

SO 

453.  5 

15.87 

10B70 

1.62 

80 

314.3 

13.  16 

10870 

1 . 44 

80 

428.  5 

12.  4 

10870 

1. 55 

80 

455.9 

14.59 

10870 

1.61 

80 

303.  3 

14.61 

10870 

1 . 5 

80 

347.2 

13.  23 

10870 

1 . 63 

80 

429.  7 

12.  07 

10070 

1. 58 

GO 

306.  9 

15.21 

10870 

1.57 

80 

322.  9 

13.61 

10870 

1 . 4 

80 

496  13 

.45  10870  1 

.59 

BC' 

395.  5 

15.79 

10870 

1 . 42 

80 

354.  2 

13.42 

10870 

1 . 5 

30 

314  14 

.96  10870  1 

.54 

80 

440.  9 

13.4 

10870 

1. 44 

SO 

313.  3 

13.2 

10870 

1. 47 

80 

334.  3 

15.89 

10870 

1 . 45 

80 

431. 1 

12.7 

10870 

1. 57 

80 

493.  4 

11.48 

10870 

1 . 37 

90 

310.  6 

14.38 

9324 

1.59 

90 

357.  4 

15.14 

9324 

1.6 

90 

381.9 

15.16 

9324 

1.57 

90 

480.  7 

13.28 

9324 

1. 46 

90 

310.  7 

14.6 

9324  1 

.52 

90 

344.  1 

13.67 

9324 

1.3 

90 

491. 0 

10.93 

9324 

1. 43 

90 

310.  1 

13.23 

9324 

1.34 

90 

308.  5 

14.5 

9324  1 

.  5 

90 

382.  5 

18.79 

9324 

1. 69 

90 

483.  4 

11.27 

9324 

1 . 44 

90 

349.  2 

12.  25 

9324 

1.4 

90 

361 . 8 

11.43 

9324 

1.49 

90 

491 .  1 

13.  87 

9324 

1 . 54 

90 

316.  6 

12.  2 

9324  1 

,71 

911! 

330.  4 

14.79 

9324 

1 . 76 

90 

308.  2 

15.  31 

9324 

1.52 

9(;) 

326.  4 

12.61 

9324 

1. 48 

90 

350.  7 

11.38 

9324 

1.36 

90 

462.  1 

1  3.  38 

9324 

1 . 3V 

90 

492.  2 

13.  13 

9324 

1 . 52 

90 

431.  a 

12.09 

9324 

1.47 
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